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GESTION DU 
DISQUE DUR 

sax mkto-ordinateur 





t GESTION DU DISQUE DUR 
SUR MICRO-ORDINATEUR 

Coition QUE 

Don Berber et Chris De Voney 
Texte fi jn^ais d'Olrvier Engler, Tellig 

Vous possedei un micro-ordinoleur — PC ou 
compatible 1 Alars, un jour ou S'autre. vous 
aurez besom... et envie d r un disque dur. 
Peui-etre rneme en nvez-vous deja un, et 
envisagez-vous lochol d'un second disque 
dur. Peutetre aussi des irez- vous tir&r le 
meilleur parti possible du disque dur que 
vous possedez deja. 

Quelle que soit voire situation, ce livre est 
pour vous, debotanls ou utillsareurs chevron- 
nes II se divise en quatre parlies ; 

— La premiere exomine les (wantages et 
ineonvenienls respecliis des disquettes 
et des disques durs, les precipes de 
base, la technologic, les fonctions el les 
drHerenles caraderistiques d un disque 
dur Puis on apprend a I'inslaller a le 
slructurer et a !e mettre en service, 

— La deuxieme portie presente les connois- 
sances de base a acquerir avant de com- 
menter a travailler avec un disque dur. 
les auieurs y analysenl lei fonctions du 
DOS. 

— Lo iroisieme poriie o pour but de vous aider 
a omeliorer I'orgortisation de votre disque 
due eta lo rendre plus perior monie, 

— Lo dew fere parlie illusire les differentes 
methodes possibles pour ameliorer lo 
^estioo du disque dur. Les techniques et 
Irs programmes presente* permettent 
d organiser le disque et de faire des 
copies de souvegarde, 

ReUitre soupie, l5SX2^J r 624 pages — 395 F 
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• IBM PC P STRUCTURE 
ET ENV1RONNEMENT 
Deuxieme edition 
Peter Norton 

Texte f renvois de Dimitri Stoquort 

La pluport des utilisoteurs de la gamme IBM 
PC tonnaisseni deja bien louvrage de Peter 
Norton, qui esl devenu une veritable J, bible ,h . 
levolation du DOS. I'apporilion des nou 
veaux modeles de la gamme ont rendu indis- 
pensable une nouvelle edition entieremeni 
refondue et remise a jour. Peler Norton nous 
donne aujourd'hul une version nouvelle de 
son livre. lenonf compre. en pari ku Iter, des 
nouvelles versions du DOS (jusqu'au DOS 3). 
et des machines de type PC XT ei AT, 
Les lecteurs qui connaissent deja l ouvrage 
trouveronl done une mine d" informal ions 
complemeniaires. Ceux qui ne le connaissent 
pas encore decouvrironl un precieux guide 
de travail. Le livre permel en elfet d'acquerir 
une comprehension totals de la structure., du 
fonctionnement et de I'environnemeni des 
machines de lo gamme IBM PC. Cest one ini- 
tiation oux cartKleristiqwes et aux possibili- 
les quelle* oltrent. II permet en outre 
d'acquerir une bonne maitnse du sysleme 
d'exploitolion MS-DOS PC- DOS. Cette mol- 
Irise permeltro aux utilisqleurs dobtenir de 
leur materiel Jes resultols les plus 
performants. 

Les commandes, les fonctions et les uiilitai- 
res du MS-DOS PC-DOS soni presentes, illus- 
tres et discutes, L'auteur s'atioche a foke 
decouv/if, pas 6 pas. les differenies capaci- 
ty du micro-ordinateur et de son environne- 
ment. II propose de nombreux exemples, a 
trovers des programmes que le lecteur 
pourra lester lur-meme. 
Reituie souple. ISO * 240. 408 pages — 260 F 



• dBASE III Plus 

Programmed! on avancee 

Collect QUE 
Joseph-David Corrobis 

Terie fran;ais dlric Terrier, Group* ESC, Pou 

dBA5E III Plus s'est impose comme le stan- 
dard des sysi ernes de gesiion de base de con- 
nees sur micro-ordinateur - PC ou compati- 
ble. Son principal attrail esf de fonctionner 
en reseau* II dispose en outre dun genera- 
feu r duplications in leg re 

Avec cei ouvrage, ecrit dons un slyle tres 
convivial, par un specialiste chevronne de la 
program motion, Tulitisoteur pourra tirer de 
dBASE III Plus le meilleur profit possible II 
s'agit en ellet d'un outil logique de pragrom- 
mation, el non pas dun livre torn en an: des 
recelfes quit suffirait de copier. Toutes les 
techniques ulilisees son! expliquees de lacon 
tres pedagogique et illuslrees de nombreux 
exemples. Une fois assimilees. elles permel- 
tront ou lecteur de les reproduce el de les 
adapter a ses besoins, 

Le livre esl divise en trois parties. La pre- 
miere esl cansocree aux quatre principes de 
lo programmation avancee en dBASE (ecri- 
ture de programmes compacts ; developpe- 
ment de programmes minimisanl le temps 
dexeculion et l espace disque ; ecrjlure de 
programmes modulaires ; developpemenl 
d une cannoissance avancee des speaki'es 
de dBASE). Lo deuxieme examine les techni- 
ques 6 ultliser pour developper les applica- 
tions profess ionnelles. Lo troisieme est con- 
sacree a I'utilisalion de dBASE III Plus couple 
a des logiciels complemeniaires permertonl 
de developper des applications completes. 

Reliure soupte. 158x230. 384 pages —295f 

Ces 3 outrages sont edites ch&i 

mm EDITIONS 97. qy. du Maine 7$Q}4 PARIS 



ff 



tremplin 
micro 21 



SOMMAIRE 



Avec la collaboration d© 



Andre BR05SAUD. CHARLY ot F. HGAL Ware FREFOYE, Stephen 
HAOINGER . Vyon KCENIG. NESTOR. Jean PERROT Emile 5CKWARI. 



Apple et Pro DOS (rrtmi »t 
logos) ion* det marque* depo 
d A pp f* Comp ul *r , Int. 

BIMESTRIEL 

Le numero : 33 F 
Abonnement d'un an : 190 F 
(6 numeros) 

Tout nat prix iont fndiquos TTC. 

EDITIONS JIBENA 

Direction* Red action ; 

Editions ilBENA 

Guy- H ACHE TTE 

La Petite Molte — Sen i lie — 
86100 CHATELLGRAULT. 

Telephone ; 

49,93.66,66 

PUBLICITY i 

Raymond JULLIEN 
(1)45.75,41.81 

Com mill ion Pori taire : 

Les revues qui cboisisseni d lire reel- 
lemwif ou service du Letteur, en ne 
J&bligeant po$ 6 glaner, dons plu 
sieurs moflOJines, les renseigne- 
merits concernant so machine, ne 
beneficient pas du nurnero de Com- 
mission Farliajre, et pas dovantage 
des tOf ifs pOilOUJC rWurts. 



TttMFUN WOtO - EmesFriil - C'esl jjni 
publicalion des EdMions JIBENA. i me de a 
Covr-des-Nowss, 75030 PARIS - SA au 
tapi-tgl 3400000 F - Imprime par 
OP PRESS PAWS - Setvke de yente : 
Presse-Promotion. tel. : tf.ft.65.Q3. - 
0*fwi legal o la dote de pcrulion — Inscrip- 
tion a !o Commission Parildtre oei Publica- 
tions ef Aqtnces de Preise en courj — 
DifKieuf de lo Publication Guy-Clemml 
COGNt-OrHwsioflN.M.P.P 



U dtoqumtf* TREMPLIN MICRO 
c&nti+ni tout /#s programme* dv 
numfro, airtti qum fof i&vrc*i 
frop fongt pour Atrt pubti+s 
dan* /w cotannmt tf> to revut*. 



Yvan KCENIG s'lnterrage... TREMPLIN MICRO oussi ! 

— APPLltOPT 



La France et le Monde FRANCE 3 

sur votre Apple (Jeon PERROT) MONDE 7 

FACT Alt IF Ur> programme comp let de facturation, 

(Yvan KCENIG) 37 

Nombres premiers (NESTOR) 62 



Povrsui voi votre initiation au langage C 

Apprendre le C dans les Itvres . 11 

PI L'APMISOFT Une contribution majeure 

iC J de CHARLY et F, SIGAL 26 

— — 9i Basic ■ 



ctu langagi 



LE JEU DE YAM (Andre BROSSAUD) 

Ce logiriet inedit, entlerement ecrif en GS Basic exploite les 
possibility graphiques de I Apple // GS, 
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Initiex-voui a I'aisembleur 

Tout le monde comprendra comment foncticr™rst les trois versions 

du GET SPECIAL de NESTOR - - 13 
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II existe et Emile Ta essoye. Tres puissant, il compile les program- 
mes ecrits en GS Basic 17 
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nan KCENIG sintemge- 

TREMPUNMICRO AU5SI! 

Apres de longs mois deflottement r APPLE France a enfin un Direeteur General Nous attendonsavec Impatience 
que celul-ci veuille bien nous dire si comme I'affirme J. SCULLEY, le GS est encore un produit dovenir, ou si, 
comme de nombreuses sirenes cherchent a nous en convaincre r ce n est (en France tout au moins) que I'APPLE til 
et le LISA reunis, Sons doute n est il pas inutile de deballer quetques ethaniillons du fonctionnement quosi suici- 
rJoirede ce qui etoit, il y a peu r un reseau de distribution... 



«Si vous m'achetez un MAC jassurerai fe service 
apres-vente moi-mime, mais si vous prenez un G$, il 
faudra vous dem. . . avec Les Ulis». 

Sign® ; un c on ce ss ian naire agrfa Apple. 

Un autre , nan mains agr4d ; <de n'orrive pas d me 

procurer les compo* 
sonts pour ta mise d niveau du GS que je vous ai vendu if 
y a s;> moisn. 

la dfani : uDommage : j'envisageais den acheter 
trois exemploires suppi6mentoire$»+ 

i 'agree ; a Ah ban ! alors revenez dans huit jours, 
j'ouroi (e necessaire. w 

Le pire c est que. hurt jours plus lard, lo mist b jour often- 
due depuis des semoines etoit effective m en t real i see. 

Y,K* : a Alb I dons le magazine vous puhtiez 
une page de pub proposant r entre autres, des 
fogiciefs pour le CS^ Vun deux n etant pas compatible 
avec ta nauvelie Rom, pauvez-vous me dire ce qu i! en 
est des autres ?w 

Reponse : Bof ! je n'en sais rien, 

Y*K* : uAtb I dans ie defunt Echo des Apple, vous 
proposiez les disques durs CMS. Je sots que 
CMS propose pour ceuxci r aux U<SA» une carte inter- 
face SCSI permettont un partitionnoge du disque, ce qui 



permet — en particulier — d utiliser a fond te disqve oQ 
megas. Puisque Apple France ne sembie pos&ressd de 
diffuser ta revision C de so rom SCSI (et son logicief de 
partitionnoge), pensez-vous pouvair importer to carte 
CMS ?>* 

Re ponse : Bof / 

Y.K. : «Atlo ! iiparattque vous etes CLARIS-France, 
est-it possible d ohtenir, en France, la version 
nouvelte APPLEWORKS 2 8 (omericoine) aux memes 
conditions qu'aux U.S. A,, lorsqu'an est QFFIGELLEMENT 
en possession d'APPLEWORKS ?» 
Repanta : Bof / vous savez f ce qui nous inte*- 
resse, c T est le Mac 

Y.K, : «Ah aui / paurtant CLARIS hit la plus grosse 
part de son benefice avec APPLEWORKS et 
hit de la pub a tout va pour ce programme f-n. 
Rdponse : C est vrai r rnaisc'est aux U.S.Ar 

X, Y, 2 et compagme : Attwdez-vovs a voirbientdt un GS 
performant grace au 65c832. . . 

Ripons* de W. MENSCH l&re dte 6sn. &&2. 00k * 

hNqus prevoyons que fes prototypes du 65c832 seront disuni- 
ties dans IS mots et que fa fabrication de la version 3Mhz com* 
mencera en 1990 (c etoit te25 avril 1988 sur GENIE). 



Comme vous le voyez, le mora! est au plus bos. En vole roptimismedes lendemoins dAppleExpo I Cependant, je 
suis tetg et f aimerois qu'on nous explique pourquoi la gamme // est si rnol troitee en France, olors qu'apres avoir 
remodete le tie, APPLE US se prepare d rojeunir le tic (d'aucuns, bien informes, annon^aient l r abondon de ces 
deux machines). D'accord : Apple France est en ovonce sur les U.S.A. , puisque la firme livre desormois le GS en 
version 1,2 megas. alors que les U.S.A. introduistnt enfin la version 512 k # mois pourquoi n'ont-ils pos utilise leur 
fkhier dients pour informer directement les possesseurs de GS de la procedure de mise a niveau ? Pour propo- 
ser un abonnement d I'Echo des Apple quatre mois avant sa disparition r ON ovoit ete capable d'ouvrir ces 
Hchiers, I'Echo etait il plus important que le GS ? 

Dernier detail avont de vous quitter : acheter du materiel aux U.S.A. peut conduire a des ■srtuofions delica- 
M5*v «n cos de ponne. Par centre, dons I'etat de decrepitude actuel du reseau de distribution frauds 
(non, je ne parle pas de SIVEA Cannes), n'hesiiez pos 6 commander directement aux U.S.A. Pour moins de 
$30 [port tnclus) FBI software vous enverro MONTE-CARLO, Ce n est pas de lo pub r juste un exemple pour 
rappeler que r lorsque les prix sont corrects, mieux vaut un original qu'une copie. Bien sGr, la doc es! en 
anglais, mais jl en est de meme chez les rares importateurs, Yvtm kcenig — s futn i9ss. 
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^ — - ^ — — / jean perrot — Applesoft / — 

Ur FRANCE 

et le MONDE 

sur votre Applet 

Desirez-vous savoir quelle distance sepore 
Angers de Toulon ? Utilisez le programme 
FRANCE de Jean Perrot. Le petit cousin de voire 
grand-mere passe un week-end a Guadalajara 
et vous desirez hi telephones mais en etant $0r 
de ne point le reveiller. Autrement dit : quelle heure est-il ia-bas el (ca ne coute pas plus ! ) 
combien de kilometres vous separent ? Lancez le programme MONDE I 

Un conseil : lisez d'abord les explications de Jean Perrot, Mieux : tapez-les et n'hesitez pas 
6 les revoir de temps en temps. C'est un peu longuet, mais cela vous evifera, par la suite, si 
vous donnez une copie de votre d/squette a un copain, d'avoir a lui photocopier deux papes 
de TREMPUN MICRO I 

Second conseil : creez d'abord un sous-catalogue intitule DISTANCES (ou HEURES), puis 
commencez par y mettre le micro-menu que nous avons baptise START. Suivront 
EXPLICATIONS, FRANCE et MONDE. Bonne copie ! 




100 D* = CHR* (4)s PRINT D*"PR 
£3": PRINT D*" PREFIX/T21/DI 
STANCES* 

105 IV* - CHR* C15):NR* = CHR 
* (14) 

120 T* = "Par Jean PERROT 27 Ru 
e du CI os Beaumois 14000 CA 
EN": G0SU8 130 4287 

125 GOTO 135 2144 

130 L = LEN (T*): POKE 1403 ,40 
- L / 2i PRINT T*: RETURN 

135 PRINT : PRINT :T* = * M E N 
U ""D I SQUETTE": I 
NVERSE : GOSUB 130: NORMAL 
: PRINT 4D82 

140 PRINT "Voulez-vous :*: PR1N 

T 15AB 

145 POKE 1403,10: PRINT 1V*» I 
"NR*" le programme 'EXPL1CA 
T IONS'" : PRINT 24F2 

150 POKE 1403,10: PRINT IV*" 2 



"NR*" le programme 'MONDE'" 

: PRINT 6803 
155 POKE 1403, 10 : PRINT IV*" 3 

"NR* " le programme 'FRANCE' 

" : PRINT 
160 POKE 1403,10! PRINT IV*" 4 

"NR*" abandonner les recher 

ches": PRINT 

165 VTAB 19: PRINT "Votre choix 

";: GET H*: PRINT H* 
170 IF H* = "1" THEN PRINT 0*" 

RUN EXPLICATIONS" 
175 IF H* - "2" THEN PRINT D*" 

RUN MONDE" 
180 IF H* = "3" THEN PRINT 0*" 

RUN FRANCE" 424E 
185 IF H* = "4" THEN HOME : PR 

INT D*"PREFIX/T2I" : PRINT D 

*"RUN STARTUP* 
190 CALL - 198: GOTO 165 



/PACE 3 / 




/ FRANCE / MONDE / 



EXPLICATIONS 



Ce programme de pr6$entotion pourraii aussi itre memorise 
sous forme de pages ou bien utiliser une courte routine lisant un 
fichier texte. Jean Perrol a choisi la formufe BASIC "lotale". 



' i PRINT 
entre 46 



u i 1 1 ps de F 



de 
au 



100 REM f EXPLICATIONS ) 

105 D* = CHR* (4): PRINT D**PR£3" : PRINT 
110 IU* = CHR* (15):NR* = CHR* (14) 

115 PRINT "-Voici quelques explications concernant les programmes "IV* 

' MONDE "NR*" et "IV*" FRANCE "NR* 
120 PRINT : PRINT IV*" PROGRAMME ' FRANCE' "NR*" : 
125 PRINT "-11 perm* t de determiner les distances 

RANCE (2 i 2 )" 

130 POKE 1403,10 : PRINT "Le calcul est base sur le fait que :" 
135 PRINT 3V*" 1 "NR*" la longueur <MR> d'une portion de meridien 

minute d'angle est $gale": PRINT " a 1,852 Km (equivalent 

ille mar in international)" 
14D PRINT IV*" 2 "NR*" la lonqueur (PR) d'une portion de parallele de 

1 minute est egale (en Km)": PRINT " a 1.B52 * CDS (LA) ""-LA et 

ant la latitude du "parallele-." 
145 PRINT IV*" 3 "NR*" sur une faible distance (quelques eentaines de 

Kilometres) la distance": PRINT " entre 2 points est sensibleme 

nt 1 ' hypotenuse d-'un triangle rectangle dont" 
150 PRINT " """les 2 cotes de 1 angle droit sont :": PRINT "- 1 portio 

n de "parallele (PR) egale & la difference des longitudes des 2 po 

i nts" ; 

155 PRINT 1 portion de meridien (MR) egale a la difference des 7 at i 

tudes des 2 points": PRINT 
160 PRINT "-Le theoreme de PYTHAG0RE permet le calcul de cette hypoten 

use" 

165 VTAB 23; POKE 1103,60: PRINT IV*" TOUCHE S.V.P, "NR*" ";: GET H*: 
HOME 

170 PRINT IV*" PROGRAMME 'MONDE' "NR*" l" 

175 POKE 1403,25: PRINT "-Ce programme determine :" 

180 PRINT IV*" 1 "NR*" l'heure d'un lieu de la terre, soit par rapport 
au rneridien de GREENU1CH": PRINT " "(temps uni verse 1 TU) , soit 
par rapport a l'heure legale de PARIS (aussi" 
185 PRINT " bien heure d'ete que d'hlvtr). 1 

190 PRINT : PRINT IV*" 2 "NR*" la distance entre 2 points de la terre , 
ainsi que les heures en ces 2": PRINT " points ( TU ou heure 1 

^gale de PARIS) donnes par longitudes et latitudes" 
195 PRINT : PRINT IV*" 3 "NR*" On peut avoir 

ntrees en DA TAs" : PRINT 

PRINT IV*" 4 "NR4" les distances (2 k 2) 



la 1 iste des 102 utiles e 



200 



205 



210 



les du monde , ainsi que les": 
(TU ou heure de PARIS)" 

PRINT : PRINT "II donne aussi 

'on a l'heure dans 1'autre." 

PRINT : PRINT " -A noter que 

heures d'ete ou d'hiuer qui" 

la FRANCE , ma is i 1 



PRINT 



entre 102 principales uil 
"heures dans ces 2 uilles 



s pays que 
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l'heure dans I 'une des utiles lorsqu 

le programme ne tient pas compte des 
PRINT "peuvent exister dans d' autre 
tient compte des dates" ; 



BD30 
449C 

F78E 
0612 

3761 
989C 



2179 

DBBB 

2709 

05D4 

1 1 OF 

4439 

1A92 
81EE 
DF18 



E4DE 
0275 



DF21 
7078 

CCCE 
6637 

DC55 



■ / Jean PERROT — APPLESOFT / — j 

215 PRINT B en pr^cisant, & la suite de chaque heure, s'M s'agit du 
ur J ou J-l ou J+2 



jo 



B16D 

220 ; 003A 
225 PRINT : PRINT " -L'u t i I f sateur pourra, k son gr£, augrfienUr le no 

mbre des uMles du monde" 5CB5 
230 PRINT "entries en DATA . II suf-fira de modifier la ualeur de NU k 1 

a I igrve 50 de 'MONDE' 11 E716 
235 UTAB 23s POKE 1403,60: PRINT IV*- TOUCHE S,U,P. "NRS" " ; ; GET Hf: 

HOME 1A92 
240 PRINT "-Le prtntrpe du calcul est bas£ sur la resolution dee trian 

gles sph^r f ques" 2 PRINT tt Le triangle enujsag* est ici 1' intersect! 

on du t£tra£dre dont le sorrtmet est le" 7C46 
245 PRINT "centre de la terre,et dont les aretes passent par le pole N 

ORD de la terre et": PRINT ,l chacun des 2 points envisages." 2E95 
250 PRINT ; PRINT h Si a, b, c soni les faces du t£tra&dr* (zotts du tr 

■ Angle spherique) et A, B et C, les angles difcdres opposes on a no 

tamrnent la FORMULE suivante s" B9A3 
255 PRINT i POKE 1403, IS: PRINT - C0S<c )=C0S<a) * COSCb) + SlN(a> * SIN 

(b> * C0S<C) 1 ' 75FF 
2^D PRINT t PRINT u -Les cotes du triangle spherique sont alors des por 

tions de GRANDS CERCLES de laterre suppose* spherique (longueur 

un grand cercJe — > 400QQ Km)" 2B1E 
265 UTAB 23: PRINT R "NW" = Reuoir explications "IV*" M "NR*" = 

MENU disquette ~"IY$ B F "NRS" = Abandonner H ; 149E 
270 GET mt PRINT H*i IF H$ = "R" THEN RUN CI S3 

275 IF H$ = B M n THEN PRINT CHR$ <4)"RUN START 11 DF4B 
2B0 IF H* - " F " THEN HOME : PRINT CHR* C4) *PREFIX/T2:r : PRINT CHRf 

C4)"RUN STARTUP - 3312 
285 CALL - 998: GOTO 265 F081 



FRANCE 



100 



-< PROGRAMME VI 




105 



no 



120 
125 



130 
135 
140 



) — 
(4) 



PRINT D*"PR£ 



REM 

LLE. FRANCE 
D* = CHR* 
3": PRINT 

PI = 3.1415924535iR = 20000 
/ PI :A = OsB = 
115 RESTORE :IU* - CHR* «15>!NR 
* = CHRS <14) 
G0SU8 320 

PRINT : PRINT "Voul ez-vous u 
o i r les villes concernees ? 
(taper MW "NR* " pour OU 
I> GET HS: PRINT H* 
IF H* = " 0" THEN GOSUB 325 
RESTORE : PRINT 
PRINT : INPUT "Norn de la pre 
mi ere ville DANS L'ORDRE ALP 
HABETI QUE (RETURN = FIN) " ;V 
1*! PRINT : IF Vl$ - '" THEN 
HOME : END 

INPUT "Nom de la second* :"" 
(V2*: IF V2* < VI* THEN 225 
FOR I = 1 TO 44 * 3 STEP 3 
READ V*,LO,LA 

^ / PACES 



145 

150 
155 



BD30 

EC7C 

FB84 
2B45 



CE7B 
288A 
2DA2 



E093 

4 E F 6 
DIED 
5281 



/ 



/ FRANCE / 



160 

165 

170 
175 
180 



185 



190 



195 



2Q0 



205 



IF V* ~ Vl« THEN LAC 1) = LA: 
10(1) - LO:Vi* ~ V*:A = 1 
IF V* - V2* THEN LA(2> - LA: 
L0(2) = LD:V2* - V*:B = 1 
NEXT 

IF A = D OR B = THEN 355 
A = 0;DN = ABS <L0<1> - LOC 
2) ) : DP - 1 . 855 * DN * CQS < 
LA(1) * PI / 10800) 
DL = ABS <LA(1) - LA< 2) ) ! DM 
= 1.B52 * DL 

DS = BQR (DP ' 2 + DM * 2) I 
OS - INT <DS) 

FOR I = 1 TO 30;SZ = PEEK ( 
49200): NEXT 

PRINT : PRINT "A uol d'oisea 
u, la distance entre " ;1V*V1 
*NR4;" et ' ; IV*V2*NR* ; " est 
de ";IV* ;DS;NR*[" Knt" 
VTAB 22: POKE 1403,1: PRINT 
IV*" C "NR*;" pour continuer 
";IV*" M "NR*" pour ME 
NU de disquette "IV*" 
F "NR*" = FIN ";: GET H*: P 



RINT 



IF H* = "C" THEN HOM 



210 



215 

216 

220 
225 



"F" THEN HOME : 
<4)"PREFIX/T21" : 
<4)"RUN STARTUP" 
"M" THEN PRINT 



PRJ 
PR I 

CHP 



230 
235 



E : RUN 
IF H* = 
NT CHR* 
NT CHR* 
IF H* = 
* ( 4 > ' RUN START " 
IF H* = CHR* (27) THEN HOM 
E : END 
GOTO 205 

CALL - 198: PRINT t PRINT : 
PRINT : PRINT 1V*"J'A1 DIT ' 
PAR 0RDRE ALPHABET I QUE J . . ,RE 
COMMENCEZ... TDUCHE S.V.P.'N 
R*j" " ;: CALL - 1 98 i GET H 
*:A = :B = : PRINT : HOME 
: GOTO 135 
END 

CALL - 198 
5 wiHes ne 
ma 1 i ste 
uche S.y 



AC3F 

9744 
0582 
CC5F 



9330 
£660 
0DD7 
6A83 

087E 



PRINT "L'une de 
figure pas dans 

. . RECOMMENCE? To 

P. CALL - 198 

: GET H*: GOTO 135 
240 DATA ANGERS, -34 ,2850, AMI ENS, 

1 54 , 3053 , AVRANCHES ,-82 ,2921 
245 DATA BAST I A ,568 , 2563 , BAVONNE 

, -90 , 261 , BESANCQN , 362 , 2834 
250 DATA BE2IERS,198,2600,BQRDEA 
UX , -36 , 2650 , BOURSES , 1 44 , 2824 
255 DATA BREST ,-270 , 2903, CAEN, -2 



707C 

3312 
DF4B 

479F 
2D42 



6FB0 
01 B0 



3416 
3128 
8A2A 
A99E 



0,2951 .CANNES, 420, 2433 
260 DATA CHERBOURG, -97, 2980, CLER 
MONT-FERRAND , 1 87 , 2747 , DIJON , 
302,2960 

265 DATA DUNKERQUE , 1 42 , 3062 , GREN 
0BLE , 343 ,271 1 ,LE HAVRE, 10, 29 
70 

270 DATA LE MANS ,12, 2880 , LI LLE , 1 

81 ,3040, LIMOGES, 76,2750 
275 DATA L0URDES , 1 , 2587 , LYON , 290 

, 2744 ,MARSEI LLE , 325 , 2598 
280 DATA MONACO, 447, 2623, MONTPEL 

LI ER, 233 ,261 6 ,MULH0USE ,440 , 2 

864 

285 DATA NANCY ,370 ,2921 , NANTES ,9 

D , 2834, NICE, 438, 2622 

290 DATA NIMES, 259, 2630, ORLEANS, 

115, 2875.PAR1S, 140, 2930 
295 DATA PERPl GNAN , 1 74 ,2563 , POIT 

IERS,21 ,2791 , REIMS, 242, 2955 
300 DATA RENNES,-102,2887,ROUBA1 

X, 182, 3041 ,R0UEN,65,2965 
305 DATA ST-ETIENNE,262,2725,ST- 

QUENTIN,) 96,2990 .STRASBOURG, 

465,2915 

310 DATA TOULON, 356, 2588, TO ULOUS 

E, 88, 2603, TOURS, 42, 2844 
315 DATA VERSAILLES, 128,2928 

320 POKE 1403,14: PRINT IV*" DIS 
TANCE A UOL D'OISEAU DE DEUX 
VILLES FRANCA I SES "NR* r RET 
URN 

325 HOME :H = 1 :V = 0: FOR I = 1 
TO 46: READ V*,L0,LA:V = V ♦ 
1 

330 UTAB V: POKE 1403,H: PRINT V 

*:B2 = PEEK (49200) 
335 IF I = 17 OR I =34 THEN V = 

0:H = H * 20 
340 NEXT : VTAB 23: PRINT "Touch 

e SVP pour la suite.... ' " ; 
345 SET H4: RESTORE : HOME : 60S 

UB 320 
350 RETURN 

355 REM < EN CAS D'ERREURS 



360 IF A = THEN PRINT : PRINT 
IV*- ";V1*;* N'EST PAS SUR M 
A LI STE . . . "NR*" " " J 

365 IF B = THEN PRINT : PRINT 
: PRINT IY*" *;V2*j" N'EST P 
AS SUR MA LI STE. . . "NR*" ; 

370 CALL - 198: GET H*: HOME : 
RUN 



86E8 

B015 

4F06 
7A16 
36C6 

479C 
0851 
5D2D 
2385 
2A8E 

661 1 

A8C9 
4B45 

32F7 

BD44 

9D6D 

925A 

DFCC 

BA62 
6381 

2A07 

DBFD 
0812 



/ PACE 6 / 



/ jean pbbrot — Applesoft / 




100 REM 



= ( PROGRAMME MO 



NDE ) = 



105 D* = CHR* (4): PRINT D**Pft£ 

3*{ PRINT 
110 IV* = CHR* <15):NR* « CHR* 

(14) 

115 PI = 3. 141 5924535 sR = 20000 
/ PI 

120 I = 0:NV = 104: REM Nombre d 

e w i 1 1 es en DATA 
125 REM ( MENU ) 



130 



POKE 1403,35! PRINT IV*" M E 
N U *NR* : PRINT : RESTORE 
135 PRINT "Voule-vous :" 
140 PRINT : POKE 1403,1: PRINT I 
V*" 1 "NR*" Avoir r heure en 
\irt lieu de la Terre par rap 
port au meridien de GREENWIC 
H." 

145 PRINT : POKE 1403,1 ! PRINT 1 
V*" 2 "NR*" Avoir la distanc 
e entre 2 points du monde.do 
nnes par latitudes/longitude 
s." 

150 PRINT : POKE 1403,1: PRINT I 
V*" 3 "NR*" Voir la 1 iste de 
s uM les du monde concern^es 

n 

155 PRINT s POKE 1403,1: PRINT I 
V$« 4 - NRf - Avoir la distanc 
e entre 2 villes et les heur 
es dans ces 2 v i lies. " 
160 PRINT : POKE 1403,1: PRINT I 
V*" 5 "NR4" Revenir au MENU 
de dispuette," 
145 PRINT : POKE 1403,1: PRINT I 
V*" 6 "NR4" Abandonner le pr 
□gramme" 

! HTAB 



170 VTAB 19; 
e choix 
L <H*) 

175 IF H < 1 



1: PRINT "Votr 
GET H*:H = VA 



OR H > 6 THEN PRIN 



GOTO 170 



BD30 
449C 
EC85 
2C9F 



9485 
805D 



E2E7 



CABF 

AF96 

463A 

DA3F 

18BE 

887D 
0C0D 



MONDE 



180 



185 
190 



ON H GOTO 240,240,490,530,18 
5,190 

PRINT CHR* <4>"RUN STARTUP" 
HOME ; END 
195 VTA 8 6i PRINT "Taper 6,E OU 
H suivant qu'il s'agit de 1 ' 
heure TU (de GREENWICH), de 
("'heure legale d'ete en F 
RANGE ou de 1 'heure d'hiver" 
i i GET K* : PRINT :K1* = K4 
IF K* = "S" THEN K* = "<TU 
u de GREENWICH)" 
220 

SF K* - "E" THEN 
en FRANCE) " :CR = 



200 



205 



:CR = 0! 



o 

GOT 



K* 

2: 



210 IF K4 = "H" THEN K* 
FRANCE) 11 : CR = 1 



r en 
20 

215 CALL 
220 REM - 



= "(ete 
GOTO 220 
= "(hive 
: GOTO 2 



198: GOTO 180 
( NE PAS EFFACER 



> 



225 VTAB 9: PRINT "Heure "IV*;" 
" fK*i" " ;NR*,'" " j : CALL - 8 
48: INPUT HG* : HG = VAL (HG* 
): IF HG* = "0" THEN RETURN 
IF NOT HG OR HG > 24 THEN 
CALL - 198: GOTO 225 
RETURN 

K = H:V*(1 > = " A " :V*<2) - 
" B " 

HOME : PRINT "Les latitudes 
et longitudes sont exprim£es 
en DEGRES ou DEGRES .MINUTES 
": VTAB 3 

PRINT "Latitude NORD : "entre 
et +90 V Latitude SUO 
" : " entre e t -90" 
PRINT "Longi tude EST : 
et +180 / Longitude 
{"entre et -180" 
GOSUB 195 

FOR I = 1 TO K: IF K = 1 THE 
N 290 

VTAB 7 + I * K: POKE 
: PRINT "Lati tude de 
>J 

INPUT LA*<I):LAfI) = 
A*(I))i IF LA*<I) = 
285 



230 

235 
240 

245 



250 



255 



260 
265 

270 



275 



"en tre 
OUEST 



1403,45 
J " ;V*(I 

VAL <L 
■0" THEN 



81 1C 
84B2 
SE51 



6118 

7E29 
FC23 

4459 
8075 



84AB 

57CD 
6381 

F3FB 



C552 



FA70 



4540 
134F 

4F69 



C656 



C05A 
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MONDE 



(suite) 



280 IF NOT LAU) OR ABS (LACI> 
) ) 90 THEN CALL - 198s 60 
TO 270 

285 N = LA(I)iZ = 0! GOSUB 460 ;P 

A(I) = PI / 2 - NR 
290 VTAB 8 + 3 * K: POKE 1403,45 

! IF K = 1 THEN 

i tude du lieu " ' 



PRINT "Long 
; : GOTO 300 



295 PRINT "Longitude de ';YSCI) 

■ 

300 INPUT LW(I)iLD<I) = UAL (L 
0*<I))i IF LO$(I) = "0" THEN 
310 

305 IF NOT LOU) OR ABS <L0(I) 
) > 180 THEN CALL - 198: G 
GTO 290 

310 N = L0(I):Z = 1: GOSUB 460 :G 
0(I> = NR:H(I) = HG ♦ HL:H(1 
) = INT <H(I) * 100 + 0.5) 
/ 100 

315 H(I) = H<I) - CR 
320 NEXT r POKE 216,0 : IF K = 2 
THEN 355 

325 IF H<1) > 23 THEN HU) = H( 1 
) - 24:J*U) = "(jour J+l)": 
GOTO 340 

330 IF HC1) < THEN HU ) = HU) 
+ 24:J*U) = "<jour J-l>": G 
OTO 340 

335 J*<1) = "(jour J)* 

340 VTAB 12: PRINT "S' i 1 est "1U 
*" M ;HG;« "NR*" heures " \K%i 
' le jour J , il est ■ 1U*» *M 
(1) ;■ "NR*" heures au ? ieu": 
PRINT "de longitude *IV* U "L 
0(1) i" "NR*;" degres " ;J*U) 

345 FDR II = 1 TO 20:B2 = PEEK 
(49200): NEXT : GOTD 435 

350 REM == 



355 DL = ABS (G0U) - G0<2>) : R 

EM DIFFERENCE DE LONGITUDE 
360 C = COS (PA(1)> * COS (PA< 



B325 
CE91 

8DEB 
39 1C 

D487 

F973 



C021 
6AF2 

BCFF 



AA13 



77E1 
2CFF 



2F83 
8D4C 



B07F 



2)) + SIN (PAU)) * SIN (P 

A(2>> * COS (DL) 
365 IF C = THEN THETA - PI / 2 

: GOTO 375 
370 S = SQR <1 - C * 2) :T = S / 

C: THETA = ATN <T) 
375 IF C < THEN THETA = THETA 

+ PI 

380 RT = INT (R * THETA + 0.5): 
L = LEN (V*<1)) + LEN (V*< 
2)) +26 

385 k/TAB 14: POKE 1403,40 - L / 
2: PRINT "Distance entre "IV 
*V*U)NR*" et "IV*V*(2)NR4;" 
-> " ; RT j * Km" 

390 FOR I = 1 TO 2: IF HU ) < 
THEN H(I) = H(I) + 24;J*(I) 
= "(jour JU) M : GOTO 405 

395 IF HU) ) 23 THEN H( I ) = H< I 
) - 24:J*U) = "(jour J+l)": 
GOTO 405 

400 J*U) = "(jour J) * 

405 NEXT 

410 PRINT : PRINT "II est ";1U*; 
" u sH(l);" " fNR* i " heures a 
" ;IV*;U*U) ;NR* SPC( 1)J*U) 

■ 

415 PRINT u . . . et " ; JY4;" » ;H<2) 
j" *jNR4)" heures a ";IV*V*( 
2)NR*; SPC( 1)J*<2) 

420 FOR II = 1 TO 30:B2 = PEEK 
(49200): NEXT 

425 GOTO 615 

430 REM 



435 VTAB 23: POKE 1403,1: PRINT 
C "NR*" pour (C)ontinue 

r "IV*" M "NR*" pour 

retour au (M)enu de disquet 

te "";: BET H*: CALL - 958 
440 IF HI = "C" THEN RUN 
445 IF H$ = "M" THEN PRINT CHR 

* (4) 'RUN START" 
450 IF HI = CHR* (27) THEN END 
455 GOTO 435 

460 Nl - NiN = N * S6N <N) :MIN 
= N - INT (N) :MIN = M1N * 1 

0/6 

465 N = INT (N) + MINiNR = N.« 
P3 / 180 

470 N = N » SGN (N1):NR = NR * 
SGN (Nl): IF 2 - THEN RET 
URN 

475 FOR J = 



4804 
0314 
944E 
A4D2 

1136 

B10B 
153B 



6675 
AO 17 
05B2 



A<?5A 



ED95 

AFCC 
FA47 



- 12 TO 12 



A747 
E9E0 

DF4B 
A4CE 
1347 



54F3 
2AFB 



2944 
CDEB 



— / PACES / 
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480 IF LOU) > - 7.5 + J * 15 A 
ND LOCI) < 7.5 + J * 15 THEN 
HL = J: RETURN 2E62 
485 NEXT i RETURN 6E6D 
490 HOME :H = 1 :V = 0: FOR ] = 1 
TO NV - 4: READ V*,LO,LA;V - 
V + 1 

495 VTAB V: POKE 1403.H: PRINT V 

*:BZ = PEEK (49200) 9D4D 

500 IF I = 21 OR I = 42 OR I = 6 
3 DR I = 84 THEN V = ! H = H 
+ 16 

505 NEXT ; FOR I = I TQ 10 ; BZ = 
PEEK (49200): NEXT ! GOTO 43 
5 C9BE 

510 PRINT : CALL - 198: PRINT I 
V*» J'AI D1T..PAR 0RDRE ALPH 
A8ETIOUE. . ,"NR* ; : CALL - 19 
8: PRINT " Touche S.V.P. 
":: GET H* 31 2E 

515 : 003A 

520 REM f DISTANCES ET HEU 

RES DES PRINC1PALES ) 

525 REM ( VILLES 

DU MONDE ) 

530 HOME : GOSUB 195 

535 INPUT "Nom de la premiere wj 

He dans 1'ordre alphab^tiqu 

e i" m ;V$<1> I PRINT 
540 INPUT "Nom de la second* 

;V*<2): IF V*<2) < V*(l ) THE 

N 510 0FE6 
545 PRINT " 

— -*» -* — ^, h 4B5^ 

550 POKE 1403,32; VTAB 14: PRINT 
IV*" PATIENCE "NR* 

555 A = 0:B = 0: FOR S = I TO NV 
: READ V*,LD,LA:Z = 

540 IF V* = WD THEN LA(1) - L 
A:N = LA: I = 1 :A = Is GOSUB 
440:PA( 1) = PI / 2 - NRiLQU 
) = L0:N = LO:Z = If: GOSUB 
460fGO(l> = NR:H<1) = HG + H 
L - CR 958F 

545 IF V* = V*(2) THEN LA(2) = L 
A :N = LA : I = 2 :B = 1 : GOSUB 
460:PA<2) = PI / 2 - NR;L0(2 
) = LO:N - L0:2 = 1 : : GOSUB 
460:GO<2> = NR:H(2) = HG + H 
L - CR:Z = 0: GOTO 575 

570 NEXT 

575 IF V*<1) = *"CAEN" Oft V*<1> = 



" PARIS" THEN H(l) = H( 1) + C 

R B8B6 

580 IF V4(2) = "CAEN" OR V*<2) = 
"PARIS* THEN H(2) = H(2> + C 
R E5BA 

585 IF A = 1 AND B = 1 THEN 355 

590 IF A = AND B = THEN PRI 
NT "Ni "IV*" "V*(l>" "NR*" n 
i "IV*" "V*<2)" "NR*" ne fig 
urent sur ma 1 i ste ... RETURN 
S.V.P. GOTO 405 

595 IF A = THEN PRINT IV*" "V 
*(])' "NR*;" n'existe pas su 
r ma 1 i ste ... RETURN SVP '";: 
GOTO 405 7288 

600 IF B = THEN PRINT IV* H "V 
*(2)" "NR*" n'existe pas sur 
ma 1 i ste . . .RETURN S.V.P. 
i 2359 

405 GET H* ! RUN F610 

410 REM 

615 VTAB 18! CALL - 958: PRINT 
*-Si on dorme 1 'heure d'un 1 
ieu (taper 1 pour le premier 
et 2 pour le second)" 

620 PRINT "on obt i endra 1 'heure 
de 1 'autre lieu... "IV*" M "N 
R*" revient au menu" 

625 VTAB 22: PRINT "St 1'heure e 
st en TU il faut ajouter 1 h 
eure en HIVER et 2 en ETE po 
ur avoir 1'heure legale e 
n FRANCE." 

630 VTAB 19: POKE 1403,41 

635 GET K*:K = VAL <K*): CALL 
- 953: PRINT : IF K$ = "M" T 
HEN RUN 

440 IF K < 1 OR K ) 2 THEN 615 
645 VTA8 21: CALL - 9583 PRINT 
"Si heure de " ;V*(K) \* = ■ i : 
INPUT " ";K(K): VTAB 21: P0K 
E 1403,15 + LEN (V*(K)) : PR 
INT IV*" " ;K(K) ;" " ;NR*;" « ; 
"(jour J)"; BAD 9 

650 IF K(K) < OR K(K) > 24 THE 
N 645 

655 K(3 - K> ■ K(K) + H(3 - K) - 

H(K) 9DEF 

660 IF K(3 - K> ( THEN KC3 - K 
) = K(3 - K) ♦ 24:J*(3 - K) 
= "(jour J-l)"} GOTO 675 

665 IF K(3 - K) ) 23 THEN K(3 - 

^ / PACE 9 / 



— / MONDE / 




(suite) 



K) = K(3 - K) - 24:J*(3 - K) 

= "(jour J+l)" s GOTO 475 
470 J*<3 - K> = "(jour J>" 
475 PRINT " alors i 1 est " ; IW 

■;K<3 - K>;" " ;NR$ ; " heures 

a "jV*(3 - K) SPCi l)Jt<3 - 

K) FBFA 
ABO VTAB 22: POKE 1403,11: PRINT 

"Taper "IV*" A "NR4" si on v 

eut entrer une autre heure " 

;: GET U: PRINT L* 
685 IF L* = *A" THEN 615 
690 CALL - 198: RUN 
695 DATA ABI DJAN , -4 . 30 ,5.21 ,ADDI 

S-ABEBA ,38 . 48 , 8 , 45 , ALEXANOR1 

E,29.50,3l .04 
700 DATA ALGER, 3, 36. 38, AMSTERDAM 

,4.50,52.22,ANDORRE,1 .30,42. 

30 9EA5 
705 DATA ANKARA, 32. 47, 39. 56, ATHE 

NES, 23. 45, 38, BAGDAD, 44. 27, 33 

.07 BB90 
710 DATA BARCEL0NE,2.10,41 .21 ,BA 

SSFTERRE , -61 . 20 , 1 6 . 36 , BELGRA 

DE,20.30,44.45 
715 DATA BERLIN, I 3. 25 ,52. 32, BERN 

E, 7. 29, 46. 57, BEYROUTH ,35.21 , 

33.48 !B3D 
720 DATA BIRMINGHAM , -1 .53,52.27, 

B06DTA , -73 .48 , 4 . 22 , BONN ,7.05 

,50.45 1E59 
725 DATA BRAZ2AL>I LLE , 1 4 . 22 , -4 , 1 2 

,BRUXELLES,4.19,5Q .50,BUCARE 

ST, 26. 07, 44. 25 35DF 
730 DATA BUDAPEST, 3 9. 05, 47. 30 ,CA 

EN,-0 .20 ,49. 10 , CARACAS, -46. 5 

2,10.39 314B 
735 DATA CAVENNE,-52.40,5,CHICAG 

0,-87.45,41 .45,C0PENHAGE,12. 

30,55.42 40DA 
740 DATA DAKAR,-17.30,14.35,DELH 
I ,77 ,09, 28. 09, DETROIT ,-83. 02 
,42.20 EB0C 

— / P/kCts to / 



745 DATA DJAKARTA, 106.4? ,-6 , 05 , D 
J1B0UTI ,43.09,11 . 59, DUBLIN, - 
6.16,53.16 
75D DATA FORT DE FRANCE ,-61 ,14.4 
, GUADALAJARA , - 1 02 . 44 , 20 . 50 , 
HAM80UR6,10,53.32 
755 DATA HANOI , 1 05 . 47 , 21 , HELSINK 
I ,25, 60. 08, HONG KONG,114,22. 
1 24A2 
760 DATA H0N0LULU,-157,21 ,HOUSTO 
N ,-95.33,29. 20, ISTANBUL, 28. 5 
0,41.03 C135 
745 DATA JERUSALEM , 35 . 1 2,31 . 45 ,K 
ABOUL, 69. 15, 34.30, LA HAVANE , 
-82.30,22.30 EEB5 
770 DATA LE CAI RE , 31 . 50 ,30 ,LE CA 
P, 18 .30 ,-34 , LENINGRAD , 30 . 20 , 
40 1 852 

775 DATA LIMA , -77 . 23 , -12. 04 , LISB 
0NNE,-9.1D f 38.43,LONDRES t -0. 
10,51.30 75A1 
760 DATA LOS ANGELES, -II 8. 1 5, 34, LUXEMBOURG 

,6.O7,49.39,mDRID,-3.40,4O,27 
70S DATA HANI LLE, 120. 54, 14. 50 .MELBOURNE, 14 

5.02,-37.30,MEXICO P -?9.10,19.22 
790 DATA MILAN,P.0e,45.27,MCNACO,?.25,43.4 

3, MONTREAL ,-73. 30, 45. 30 
795 DATA MOSCOU, 37. 3d ,55. 50, MUNICH, 11. 35, 4 

8.0B t WNKIN, 116.50,32 
800 DATA MPLES, 14. 18,40.50, NEU-Y0RK, -74,4 

0.40,N]COSIE,33.20,35 
805 DATA NOUMEA ,167,-22.20, ODESSA ,30 . 40,46 

.30, OSAKA, 135. 30, 34. 40 
BIO DATA OSLO,1B.40,60,OTTA«A,-75.40,45.25 

, PAPEETE,-! 49, -17,30 
815 DATA PARIS,2.2D,4B.50,PEKIN,1 17,36,40, 

PORT AU PRINCE ,-72, 30, 18. 27 
820 DATA FmiGYANG,l25.45,3?,OUEBEC,-71.50 

,47.1B,RWGO0N,96,44,16.26 
825 DATA REYKJAVIK, -22, 64. 05, ROME, 12.25,4 

1 .53,SAINT-MARIN,12,30,43,55 
830 DATA SALISBURY, 31, -17. 40, SAN FRANCISCO 

,-122. 30, 37. 45, SANTIAGO ,-70, 40, -38, 30 E8BF 
835 DATA SEOUL, 127,37. 30 .SHANGAI ,122,31 ,SI 

NGAPOUR, 104, 1.22 0304 
840 DATA SOFIA,23.20,42.3?,STOCKOLM,18.20, 

59,20,TAIPEH,121.3B,25 
B45 DATA TaWJARIVE,47.30,-18.5?,TEHERAN,5 

1 .27 ,35. 46, TIRANA, 19.50 ,41 .24 
850 DATA TDKY0,I39. 37,35.41 .TRIPOLI, 13.09, 

32.47,^15,9.03,36.40 
855 DATA TURIN, 7. 42,45. 05,VARSDVIE, 21 ,52-1 

3,VIENNE,16. 20,48. 11 36BF 
860 DATA UASHINGTON, -77, 39. 02, WELLINGTON,! 
74 . 50 , -41 . 23 , YAOUNDE , 1 1 . 37, 3. 49 



/ LELANCACE C / 



Apprentice le c 
dans les livres f 

Tremplin Micro s'interesse a tous les langages, mais notamment a celui qui est appele a 
devenir LE langage... et vous f'avez reconnu : it sogit du C . On ne peut pas dire que les 
appfemoniaques soient partkulierement gates avec h version dont ils dlsposent sur f 'Apple 
UGS. II leur manque un TURBO C signe Borland, ou un QUICK C signe Microsoft (mais que 
nous ne connaissons pas). 

Reste que le Turbo C est utilisahle sur GS par le truchement du PC Transporter diffuse en France 
par Brejoux. Et olors f quel regal ! D'outanf plus que les auvrages consacres a TURBO C sont non 
seulement nombreux, mais enrichissonts en diable. Nous les decrivons tous (lors de la parution) 
dans nos pages Biblio. 

Au fait, peut-on apprendre le C dans ies livres ? Assortment oui, mais en prenant te soin de 
tout lire... e'est-d dire de commencer par le commencement* Dune maniere genera fe, les 
habituds du Pascal ne font quune bauchee de I Abe du C - Lorsqu'on arrive du BASIC e'est un 
peu plus complique t mais on s r y fait tris vite. Parians des deux derniers (d'autres arrivent !). 

turbo c de Stephen ft. Davis 



Avec ce manuel, on peut parler douvrage de reference 
accessible a des programmeurs de bon niveau, sur PC et 
compatibles. Turbo £ (de Borland) est devenu un stan- 
dard, mais s ecarte parfois de to nor me Kemjghan et Rit- 
chie — avec bonheur d'ailleurs. Le livre de Stephen R. 
Davis fail le point Id-dessus. Mais I'auleur ne se contente 
pas de disserter sur les merites respectifs du C dassique 
et du Turbo C . II invite le lecteur a programmer. Les exem- 
ples abondent dans ce bouquin.*. du plus simple au plus 
complexe (et, pormi ces derniers, la creation de program- 
mes residents). 

Un livre qui fait honneur a la collection Cedic-Nathan. 

475 pages, troche — 265 F PCV Diffusion BP86 77402 LAGNY sur MARNE 

plus LOIN Mm TURBO C de Daniel-lean David 

Enseignement complet de Turbo C sur IBM PC et compatibles, le hvre tratte les aspects tes plus 
avances du I on gage et notamment les pointeurs et fa gestion dynamique de la memoire, ainsi 
que les fichiers en acces sequentiel direct, et la recursivite. 

II comble par ailleurs une locune des compilateurs C en fournissant un ensemble complet de 
grophiques haute resolution, permettant de reoliser tous les dessins possibles, Ce package gra- 
phique est disponible sur disquette, mais nous ne I'avons pas teste. Nous supposons que cette 
meme disquette regroupe les corriges des 50 e^erckes proposes dons Touvrage, 

Edimkro. 121 avenue dfTAUE 750*3 PARIS 250 pages, 8roche — 245f 




— / MS-DOS — LOGICS EL / 



a essay er sur votre cs 
avec PC-Transporter 





Vous avez eu la bonne idee de transformer votre Apple flGS en compatible grace au 
PC -Transporter... mais vous hesitez a investir dans un nouveau traitement de texte : 
j'ai peut-etre decouvert un logiciel capable de vous interesser, 

II est diffuse par Internationale Systems Machine (ISM)*, une societe lyonnaise qui 
developpe une garnnne de logiciels destines a arnehorer et optimiser I'emploi des 
ordinateurs, 

II s'agit de PRIM-TEXT (480 F HT, mais avec timer et alarme). II m'a paru d'une reelle 
simplicite parce que convivial en diable, II autorise la manipulation de blocs, la justi- 
fication automatique, la frappe kilometrique, la recherche et le remplacement, la 
cesure automatique, etc* 

II est auto-documente en fran^ais et peut etre utilise de deux manieres differentes : 

% m Sans le Driver et sans fe Chrono (impossibilite d ernployer les differents caracte- 
res et non disponibilite du Timer/ Alarme/Bloc-note/Table ASCII). 

2. Avec ses accessoires et I'on a alors acces (avec les touches de fonctions F2 a F10) 
aux differents styles de caracteres, ainsi qu'au chrono (ALT-1 a 8}. 

Un traitement de texte syrnpa, peu ambitieux, mais suffisant dans bien des cas F pour 
reahser des impressions soignees, Nemtar. 

* tSM r 2, Quai du Commerce 69009 LYON— Tel. i 78.47.76.08. 



ILICOh accelerateur logiciel pour PC r permettant de 
multiplier la vitesse d'execution de vos applications 
{DBase, bases de dormees diverses). ILICO assure une 
r£dcriture des routines d'entr^es/sorties du DOS totals- 
ment compatible, permettant des temps d'acces et de 
chargement des fichiers de 2 a 20 fois plus courts. Cest 
un logiciel tres facile h utiliser puis qui! suffit de le lan- 
cer par un seul mot ; ILICO ! 



Chez fe mime editeur : 



— / PACE 12 / 



^— — ^^^^-^ / HESTOR — APPLESOFT LM / 

GET SPECIAL 



Comment afficher la mention 
" PRESSEZ UNE TOUCHE " sur la 
ligne 24 d'un ecran 40 colon- 
nes, en mode inverse, puis 
retrouver le confenu eventuet 
decette ligne ? 

Le confenu de la touche pres- 
see est memorise en 86. La 
demo en Basic monfre exacte- 
meat le fonctionnement de 
cette courte routine. 



1 TEXT ; PRINT CHR$ (21 }: HOME 

1 5 PRINT CHR$ (4)"BLOAD GETS/ GETS, LM": VTAB 3 

20 FOR I = 1 TO 879: PRINT "A";: NEXT 

25 POKE 2039,193: VTAB 1 : CALL - 868 

30 CALL 768 

35 PRINT ; VTAB 1 : CALL - 868: PRINT "Vous avez press* 
la touche "; 

40 T = PEEK (6) - 128: IF T<32 THEN PRINT "CTRL-";:T 

= T + 64 
45 PRINT CHR$(T) 
50 IF PEEK (6) <> 155 THEN 30 

55 VTAB 1: PRINT "(1) ENCORE (2) APPLESOFT (3) MENU 

DISK ": CALL 768 
60 R = PEEK (6) - 176: IF R = 1 THEN 25 
65 IF R = 2 THEN HOME : END 
70 IF R = 3 THEN PRINT CHRS (4)"RUN STARTUP" 
75 GOTO 55 



300 


: 20 


18 


03 


JSR 


$0318 


303 


: 2C 


10 


C0 


BIT 


SCO 10 


306 


2C 


30 


C0 


BIT 


$C030 


309 


A9 


80 




LDA 


£$60 


30 B 


20 


AS 


FC 


JSR 


$FCA8 


30 E 


AD 


00 


C0 


LDA 


$C000 


311 


10 


F3 




BPL 


$0306 


313 : 


2C 


10 


CO 


BIT 


tcoio 


316 : 


85 


06 




STA 


$06 



318 


: AD 


2C 


03 


■ LDA 


S032C 


316 


48 






PHA 




31C 


! AD 


2F 


03 


LDA 


S032F 


31 F 


: 8D 


2C 


03 


STA 


$032C 


322 


68 






PLA 


323 


8D 


2F 


03 


STA 


$032F 


326 


AO 


12 




LDY 


£$12 


328 


B9 


DO 


07 


LDA 


$07D0,Y 


32B : 


99 


38 


03 


STA 


$0338, Y 


32E 


B9 


4C 


03 


LDA 


$034CY 


331 : 


99 


D0 


07 


STA 


$07D0,Y 


334 : 


88 






DEY 


335 : 


10 


Fl 




BPL 


$0328 


337 : 


60 






RTS 





Vers Bascufe. 
Clavier initialise. 
Clic haut-parleur. 

Boucle d'attente (WAIT) en fanction de A. 

Si aucune touche n"a ete presses, a refaire. 
Clavier d zero. 

Confenu de I'Accumulateur dans $6. 
1ASCULE 



On inverse alternativement 

le confenu des adresses $32C et S32F 



MEMO AFFICHAGE 

1, La partie de Ifgne-ecran concernee est memorisee a 
partir de $34C el rempiacee par le texte ($338), 

2. Quand une touche a ete presses, c'est le contraire 
qui est realise et I'ecran refrouve son aspect. 



PRESSEZ UNE TOUCHE " (en mode inverse 



*338.34B 
















20 


10 


12 


05 


13 


13 


05 


1A 


20 


15 


0E 


05 


20 


14 


OF 


15 


03 


08 


05 


20 











/ PA GE f J / — 



/ NESTOR — APPLESOFT LM / 




Cette seconde version est une petite demonstration qui vous monire fa rapidite de I'affi- 
chage en iangage machine. La routine d'affichage est pokee a la fin du programme en 
BASIC (ligne data 90), Les adresses du desassemblage obtenu pourront etre differentes si 
vous avez modi fie une seule des fignes en Basic, mats c'est sans importance. 



10 LOMEM: 29 + ( PEEK (105) + PEEK (136) * 256) 

1 5 TEXT : PRINT CHE$ (21): HOME : GOSUB75 

20 PRINT CHR$ (4)"BLOAD GETS/GETS.LM": POKE 6 J 93 

25 PRINT: CALL AD 

30 VTAB 1: CALL 768: PRINT : VTAB 1 : CALL - 868: PRINT "Vous qvez presse la touche "; 

35 T = PEEK (6) - 1 28: IF T < 32 THEN PRINT "CTRL-";:T = T + 64 

40 PRINT CHR$ (T) 

45 IF PEEK (6) < > 155 THEN 25 

50 VTAB 1 : PRINT "(1) ENCORE (2) APPLESOFT (3) MENU DISK ": CALL 768 

55 R = PEEK (6) - 176: IF R = 1 THEN 25 

60 IF R = 2 THEN HOME : END 

65 IF R = 3 THEN PRINT CHR$ (4) "RUN STARTUP" 

70 GOTO 50 

75 AD = ( PEEK (105) + PEEK (106> * 256) - 29 

80 FOR I = AD TO AD + 28: READ R: POKE I. R: NEXT 

85 RETURN 

90 DATA 165,6,201,32,176.2,9,128,162,2,72,123,32,71,248,104,160,39,145,38,136,16,251, 
232,224,24,144,238,96. 



CETS.BAS1 



A01 : 
A03 : 
AOS : 
A07 : 
A09 : 
AOB: 
A0C: 
A0D: 
AlO : 
All : 
Al3 : 
A15 : 
A16 ' 
A18 : 
A19 : 
A1B : 
AID: 



A5 

C9 

BO 

09 

A2 

48 

BA 

20 

68 

AO 

91 

88 

10 

E8 

E0 

90 

60 



06 
20 
02 
80 
02 



LDA 
CMP 
BCS 
ORA 
LDX 
PHA 
TXA 
JSR 
PLA 
LDY 
STA 
DEY 
BPL 
INX 
CPX 
BCC 
RTS 



$06 

£$20 

$0A09 

£$80 

£$02 



On prend la voleur du caractere dans $6. 





Sinon on le transforms en caractere aHichable. 
X = 2 pour commencer 6 cette ligne. 
Valeur de A empilee. 



47 F8 



27 
26 



£$27 
($26), Y 



Recuperation de A. 
Longueur de ligne do *fl Y, 




FB 



$0A13 



18 
EE 



£$18 
$0AOB 




— / PACE IS / 



^ ^ — / MMSTOR — APPLESOFT/LM / — 

jwat motif off rflrw 



— — ^— MtMw 

10 LOMEM: 29 + f PEEK (105) + PEEK (106)* 256) 

1 5 PRINT CHR$ [4}"BLOAD GETS/GETS. LM"; POKE 6, 193 

20 TEXT : PRINT CHR$ [21 ): HOME : RESTORE : GOSUB 75 
25 PRINT: CALL AD 

30 VTAB 01 : CALL 768: PRINT ; VTAB 01 : CALL - 86B: PRINT "Vous avez presse la louche "; 

35 T = PEEK (6)- 128: IF T< 32 THEN PRINT "CTRL-"; :T = T + 64 

40 PRINT CHR$ (T) 

45 IF PEEK (6) < > 155 THEN 25 

50 VTAB 01 : PRINT "(1 ) ENCORE (2) APPLESOFT (3) MENU DISK ": CALL 768 

55 R = PEEK (6) - 176: IF R = 1 THEN 20 

60 IF R = 2 THEN TEXT : HOME : END 

65 IF R = 3 THEN PRINT CHR$ (4) "RUN STARTUP" 

70 GOTO 50 

75 AD = { PEEK (105) + PEEK (106) * 256) - 29 

80 VTAB 21 ; PRINT "TAPER (1 ) POUR MODE GRAPHIQUE ";: GET R$: PRINT 

85 FOR I = AD TO AD + 28: READ R: POKE l,R: NEXT : IF R$ < > "1" THEN POKE 

2150,48: POKE 2151,49: POKE 2161,48: POKE 2162,49: POKE 2273,48: POKE 

2274,49: RETURN 

90 GR : POKE AD + 9,0: POKE AD + 25,20: POKE 2150,50: POKE 2151,50: POKE 

2161,50: POKE 21 62,50: POKE 2273,50: POKE 2274,50: RETURN 
95 DATA 165,6,201 ,32,176,2,9,128,162,2,72,138,32,71 ,248,104.160,39,145.38,136.16. 
251.232,224,24,144,238,96 



En modifiant quelques lignes de GETS.BAS1 ... eten ajoutant quelques POKES bien ajustes, 
il est possible d'observer I'effet de GETS en mode TEXT ou en mode GR. 

Ces modifications concernent : 

1. L AFFICHAGE du texte qui passe de la ligne 01 a la ligne 22. 

2. LE REMPUSSAGE de I 'ecran qui vade1aJ9au lieu de3a 24. 

Attention I Le programme BASIC s'automodifie, ce qui comporte bon nombre de r/s- 
ques. Ou'un seul espace de VOTRE programme soit different du NOTRE... 
et rien ne va plus I 

Notez qu'if est facile, en passant en mode moniteur, puis en examinont lo memoire, de 
verifier si les bonnes valeurs se trouvent bien aux bonnes adresses. Considered en tout 
cos cef ajout comme un exercice amusant. . . et rien de plus. 

C'est aussi cela I'informatique personnelle ! nestor. 

- / PACE IS / 



/ LBS U VRES / 



I 




J 



• GUIDE MICROSOFT 
DE MS-DOS 3 J □ 3.3 
(Ray Duncan) 

Difficile de trouver plus tempetentes que 
les Editions Microsoft Press pour parler de 
MS-DOS I On soil que ce systeme d'exploi- 
tation, mis au point por Microsoft Corp, est 
actuellement le plus utilise dans le monde. 
II tourne en ef let sur une dizoine de millions 
de micro-ardinateurs et il esi 6 la base de 
plus de 20 039 applications. 
Cest oussi le mieux connu et Ton ne compte 
plus les ouvrages cons acres a ses di verses 
versions. 

Celui de Microsoft Press est destine 6 tous 
les utilisateurs et passe en revue , dune 
maniere tres detail lee, toutes les common 
des internes et exlernes du DOS sur PC. PS 
et compatibles. 

II Iraite oussi les options de configuration du 
system e. ainsi que les directives specihques 
aux fichiers de commandes, a I'editeur 
EDLIN et aux fichiers de gestion de periphe- 
riques (DRIVER, SYS). 

Un guicie complet, a garde r a portee de lo 
main, 

PX.V. Ditfvsioti -BP 86 77402 LAGNY'SUR/MAWE 
290 pages sous cowerture cartannee — 2B5 F 

• APPRENDRE SPRINT 
(Jean-Claude De Ves) 

Manuel de formation de la collection 
Cedie/Nothan. bien r^dige et tres bien pre- 
sent, comme tous les ouvrages de certe 
serie. Letraitement de textes de Borland est 
un produit seduisant et a dejo conquis bon 
nombre dutilisoleurs de PC et compati- 




bles. Sa documentation est copieuse, mo is 
ce monuel d'inifiatian ne fait pos double 
emploi. Cest une approche differente. inle- 
ressante a bien des egords. un tour d 1 hori- 
zon complel du logidei avec des in1o«"ma^ 
tions indispensobles au neophyte... et par- 
fois peu connues des habitues. 
A off fir o toute personne d esi rani decouvrir 
ropidement et methodiquement ce troite- 
ment de testes de la nouvelle generation. 

p, c V. page* - 235 F) 



• LE LIVRE DE L'AT 
(Jorg Schieb) 

L AT esi une mochine ouverte, porticuliere- 
menl configurable et disposant d un grand 
nombre de penphenques. Auteur de nom- 
hreux ouvrages et logiciels, Jorg Schieb 
nous propose de decouvrir les out i Is inl er- 
nes de I 'AT pour une exploitation plus puis- 
sonte et plus conviviole de lo machine. 

if UVRSQEiAT est une manne d'informa^ 
tions sur le fonctbnnement interne de la 
mochine, ses peripheriques, ses differentes 
configurations,^ Le lecteur decouvriraau fil 
des pages comment creer ses propres outils 
de develop pern en ! ou d'exp location : savolr 
par exemple Installer un RAM disaue, aug- 
er enter les performances de son clavier ou 
gerer les interruptions du microprqcesseur. 
Autont d'asluces fort precieuses pour une 
totale harmonie entre I'utilisateur et so 
mochine, 

Chacun des themes troites dispose d une 
ponoplie complete d'exemples (program- 
mes, instructions, odresses-des du 
systeme .} destines a elargir I'harizon du 
lecteur dans ses developpements ulterieurs. 




Voici un apercu des principaux sujets 
etudies : 

— Description general du systeme. 

— Les differences essentielles entre le XT 
et I'AT. 

~ ^installation et l utilisotion approfon- 
die du DOS (version 3,3 incluse). 

_ Lo programmotion des cartes video 
(CGA, EGA r VGA, PGA, AGA, HERCU- 
LES (plus)). 

— L affichage 6 Tecron : modes texte et 
graphique. 

— Le fonctionnement et la personnalisa- 
lion du clavier (macros, accelerateur 
du clavier...), 

— L exploitation des poiis serie et paral^ 
lele : brochoge dfis cables, connexion 
des imprimantes, per fphe riques leurre, 
redireclton des entrees/sorties. 

— Les extensions du systeme y compris lo 
geslion des cartes d 1 extension 
memoire : EMS, EEMS, LIMS. 

— Les systemes dexploitation et environ- 
nements porticuliers : XENIX, WIN- 
DOWS, GEM. 

— Le systeme d'exploitation de demain : 
OS/2. 

Beneliciant dun style agreable tant dons 
I'ecriture que dans lo lisibilite des schema s. 
la voleur des informations du LIVRE DEI AT 
permettra au lecteur d'assimilerlres ropide- 
ment les informations jusqua les iniegrer 
parfaitement dans ses trovaux quotidiens. 

iDtTtONS MICRO APPUCATfQN 

™ Sainte-C4dh 75009 PARIS 

(330 pages - 199 F) 



/ PAW 16 / 



/ mmiim schwarz — uncaci / — 

LE TML BASIC 

existe... Entile I'a essaye ! 



Le tres attendu TML BASIC est enim arrive. 
Pour la rnodique somme de $125.00 (prix 
catalogue), vous obtiendrez une disquette et 
le manuel. 

Le logiciel est Itvr6 avec fe sysfeme 3.1, soit 
ProDOS 16, version 1.3 6videmment 6qufpe 
du FINDER angtqis, 

Ce manuel (environ 500 pages au format 
17,5 cm X 21 cm) vous donne tous les rensei- 
gnements utiles sur le fonctionnement du 
logicieL II est divise en quatre parties : 

I « Le guide de I'utflisateur ; 

2 . La reference du langage ; 

3 . Programmer en utilisant la boTte a outils ; 

4. Les annexes. 

Ce logiciel fonctionne en mode "Desktops 
c'est-6-dire qu'il utilise les menus deroulanfs et 
les fenetres. Chaque programme — chaque 
source — est affiche dans une tenure. Vous 
pouvez avoir quotre fenetres — quatre sources 
— visfbles a Pecran, mais il est bien entendu 
qu'il n y a qu'un seul programme actif . 



Dans Tannexe D r vous trouverez les differen- 
ces instructions inconnues en TMLBASIC ou 
utilisees differemment, plus une liste des 
nouvelles. En fait, pour les instructions non 
reconnues, il s'agit essentielfement de celles 
fonctionnant en mode imrnediat, plus quel- 
ques autres felles que : BASIC6, CONT r 
COPY, DIR P INVOKE/PERFORM, TRACE 
NOTRACE, LIBFIND, PROGNAAA$ et QUIT. 
Presque toutes ces instructfons sont evidem- 
ment inutifes ou inutifisables dans I'environ- 
nement TMLBASIC car veritablement depen- 
dantes d'un interpreteur. 

II s'agit la d'un Basic 16 bits, tres puissant, 
capable de compiler sur disque r sous forme 
d un fichier application, le source que vous 
avez ecrit. Comme il est precise dans la 
publicity vous avez la possibility de recupe- 
rer les programmes ecrits en GS Basic. Pour 
cela, utilisez le petit EXEC "TRANSFERT"* 

En mode immedtat, tapez le programme ci- 
dessous, puis "RUN" pour cr^er fe fichier 
EXEC : 



10 REM MAKE. EXEC. TML 

20 START: PRINT "Fait un EXEC de transfer! de fichier GSB en .TML" 

30 OPEN "TRANSFERS, FILTYP = TXT FOR OUTPUT AS£1 

40 PRINTfl ;"HOME":REM Texte du fichier EXEC 

50 PRINTEJ ;"REM Syntaxe: EXEC/';CHR$(34);''PROG.GSB,30URCE.TML' , 

60 PRINTE1 :"LOAD ele :REM Charge le programme GS Basic 

70 PRINTfl ;"OPEN e2e r FILTYP = TXT FOR OUTPUT AS£1 " 

80 PRfNT£l ;"A = LfSTTAB :OUTREC = :LISTTAB = 128 + A" 

90 PRINT£1 ; "OUTPUT £1 : LIST : OUTPUT £0" 

100 PRINT£1;"OUTREC = 80 : LISTTAB = A": REM Restaurs les valeurs 

1 T0 PRINTfl /'CLOSE £1 ':REM Ferme le fichier de destination 

1 20 PRINT£1 ; 'REM Transfert termini": REM Fin du transfert 

130 CLOSE£l:REM Ecriturede fEXEC ferminee 

140 FIN ■ END 

^ — — / pace it / — 



/ LB TML BASIC / 



Vous pouvez £galement utiliser voire traite- 
ment de texte habituel et toper le texte situe 
entre les deux REMarques, puis le sauver 
dons un fichier du type TXT sous le norn de 
"TRANSFERT". 

La syntaxe d'appef rfe cet EXEC est : 

EXEC TRANSFERT/TROGRAMME.GSB, PROGRAMME. TML" 

TRANSFERT est le nom du fichier EXEC, 
PROGRAMME. GSB est le programme en GS Basic, 
PROGRAMME. TML est le fichier source en TML BASIC. 

LE TML BASIC n'utilise pas les numeros de 
Hgne, ce qui nous oblige a employer LISTTAB 
- 128 + A (ancienne voleur}. En effet, dans 
ce cos le programme sera liste sans numero 
de ligne. OUTREC = permet d'avoir des 
lignes sans aucune tabulation ni CR tntem- 
pestifs. Une fois cette operation effective, it 
vous est possible de r6cuperer le fichier 
texte avec le TAAL BASIC, Vous pouvez egale- 
ment vous servir des instructions decrites a 
la page 482 du manuel de I'utilisateur du TML 
BASIC. 

Une fois votre "source" ecrit, vous avez la 
posstbilife d'appeler le "debugger" integre 
en cliquant dans le menu Compile I'option 
Check Syntax, ou bien en utilisant I'equiva- 
lent clavier Pomme-Y, Sj la syntaxe est cor- 
recte, vous pouvez, grace a To Memory 8 
Run (Pomme-M) ou To Disk (Pomme-D), exe- 
cuter ou sauver sur disque, sous forme de 
fichier $B3 (ou SI 6), le resultat de la 
compilation, 

Je ne m'etendrai pas davantage sur la des- 
cription de ce Basic, mais je vous propose un 
petit programme que j'ai repris du GS Basic 



et qui fonctionne sans presque rien changer. 
Reportez-vous a Tremplin Micro numero }9 t 
pour le programme d'origine. 
Void les modifications opportees (mise a 
part Tabsence de numeros de lignes) ; 
a* L'apostrophe peut remplacer le REM ou 
; REM ; 

b. ^instruction LIBRARY n r est pas suivie par 
APPEND ; 

c. L utilisation du IF.„ THEN,,- ELSE ... END 
IF ; 

d. J'ai ete amen£ a passer $EIC029 NEWVI- 
DEO en mode lineaire par un poke. 

Une r&marque s'impose : 

IL EST IMPfeRATIF DE NE PAS TENTER DE 

CHARGER UNE IMAGE COMPACTEE. 

En effet, pour des raisons de compacite, je 
n'ai pas fait de test sur le type de fichier en 
cause. Vous pouvez done charger un ecran 
32k du type BIN ou PIC ($C1 aux $0000). 
Vous frouverez sur la disquette d'accompa- 
gnement (qui est indispensable * ) en plus du 
source TMLBASIC, le fichier application qui 
est utilisable sous le Finder ou le Launcher. 

Et pour les amateurs, voici I'adresse ou vous 
procurer ce TML BASIC : 

TML Systems! Inc. 
8837- B Goodbys Executive Drive 
Jacksonville, Florida 32217 
United States of America 

p r S. : Pour fes amateurs Pascal, if ex/ste aussi 
— un TML PASCAL pour Apple itGS. 

it exist* un TML PASCAL pout (e Macintosh..* 




■ Charge et affiche une image au format ecran 32k 

■ Exemple de programme TML BASIC 



'Copyright tc> Mai 1988 Emile SCHWARZ et Tremplin Micro 



Debut : 

LIBRARY "Memory" 

— / PMCE iff / — 



/ Efff ffe SCMWARZ — LANGAGE / 



Fir. : 



LIBRARY "QuickDraw" 
DIM pic! (32767) 

Input "Nom de 1 ' image a charger: " ; Pic$ 
IF File(PicS) THEN 

OPEN Pic$ f AS £11,32767 

GET £ll;Pic! (0) 

CLOSE £11 
ELSE 

PRINT "L 1 image "Pic$" est inconnue." 
Pic$=" M 
END IF 

ON Pic$= M " GOTO Fin 

POKE 14794793,97 

desta-TEN ("E12000") 
sourcea=VARPTR fPic ! {Q) } 
longa=327 67 

BlockMove (sources, des t£, longa) 
Graf On 

PRINT "Pressez une touche pour quitter" 

GET$ a$ 

Home 

Graf Off 
END 



1 Taille tableau = image 32K 



1 Ouvre le fichier image 

* Stocke l r image dans le tableau 

' Ferme le fichier 



Image inconnue = fin programme 

1 Paaae en mode lineaire 

' Stocke l'adresse de destination 

1 Stocke l'adresse de depart 

1 Nombre d' octets a recopier 

' Recopie 1' image dans le buffer 

1 Affiche l 1 image 

1 Attente clavier 

' Repasse en ecran texte * 



TURBO PROLOG* LE langag * de s * generation oriente applications 



BORLAND INTERNATIONAL annonce la disponihilite de la version am^ricaine de TURBO PROLOG 2.0. 
Cette nouvelle version apporfe un support exferne de bases de donnees, un inierpr&teur, un guide 
tvievr de 350 pages et un suppori graphique etendu, TURBO PROLOG 2.0 per met egalement de develop - 
per des bases de donnees plus imporfanfes grace a une nouvelle serie d'ovtils. 



Avec plus de 100 000 utjfisateurs, TURBO PROLOG est le 
langage de 5* generation sur micro le plus utilise dans le 
monde. A b difference des langage s proceduroux tradi- 
tionnels, TURBO PROLOG offre un code compact tres lisi- 
ble et facile a gerer. Utilisont seulement le dixieme de 
lignes codees normdemenl necessaires pour une appli- 
cation ecrife dans un longage procedural, j| autorise une 
tres grande rapidite de programmation, 

"Avec la version 2.0 r TURBO PROLOG apporte tes outils 
necessoires pour developper de pvissantes applications 
comrnerciohs dans les domaines iets que la gestian de 
hoses de donnees, tes systemes experts, fes interfaces 
de langage nature! , ies bases de cannaissances et les 



systemes d 'informations intelHgents/' declare Philippe 
KAHN. President et Fondateur de BORLAND 
INTERNATIONAL. 

Rappebns que BORLAND INTERNATIONAL a ete fondee 
en 1983 par Philippe KAHN 6 Scotts Valley en California 
Le siege europeen a ete cree en juillet 1986 par Abin 
BLANCQUART, Vke President Europe. Aujourd'hul BOR- 
LAND INTERNATIONAL compte un effecfif de plus de 650 
person nes dont 75 sur la France, Le chiffre d'off aires 
pour ses frois premiers trimestres ftecaux (du l* r avril au 
31 decembre 1987) de 47,3 Millions de Dollars fait appa- 
raltre une progression de 110 % par rapport □ la rnerne 
periode I nnnee p recede nte (22.5 Millions de Dollars). 



Uniqummonf svr PC at compatibles dliposont dm 384/640 K d* mtmoirm. (Disqu* dor consoifim). Prix : 1495 f NT. 
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— / Andre BROSSAUD — GS Baste / - 

LEJ EUDEYA M 

en CS Basic 

Void le premier jeu programme en CS Basic, II utilise le principe (cher a Apple) de la 
souris, Le programme commence par demander si l f on desire consulter la regie. Si 
out, il affiche les frois ecrans d f aide r Dons le cos contraire f if donne immediatement 
ilmage du jeu et attend une action du joueur, celle-ci pouvont se declencher a partir 
du clavier (pression d'une touche) ou bien de la souris {un ou plusieurs clicks). 

Avant d f enfrer dons le jeu, le joueur doit decliner son identite et indiquer sit est seal 
ou accompagne d'un parfenaire. 

En ce qui conceme la programme f ion, on constatera que Ilmage utilisee est une image 
compactee de type $CQ aux $00QL Le petit module de decompactage est extrait du 
programme d'Emile SCHWARZ (que vous decouvrirez dans ce meme numero). 

Bibliographic : •La boite a outils de I Apple IIGS de J. -P. Curch (Editions PSt) 

* Les des pour I Apple HGS de N. Breaud-Pouliquen 

• Le Manuel du CS Basic. 



10 REM ****** YAM far Andre Bross^ud (c) Mars 1988 ****** 

20 REM 

50 CLEAR 2 56200 : HOME : GRAF INIT 320 

60 ON ERR GOTO erreur 

70 DIM pic ! (11000) , imyam! (327 67) f event ! (16) , msg ! (256) , r (7) , b ! (5) 

80 DIM t(X # l2) r b(12) ,des(5) ,dc(5) :nt=l 

110 FOR i=l TO 12 : READ b { i ) : NEXT 

120 DATA 1,2,3,4,5,6,20,30,40,50,1,1 

140 TOOL: LIBFIND "QDSt artUp" , ql% , q2% , q3% 

150 IF ql% GOTO prelude 

160 LIBRARY "tdf s/quickdraw.tdf " 

170 LIBRARY APPEND n tdf s /memory . tdf " 

18 LIBRARY APPEND "tdf s /misctool . tdf " 

190 LIBRARY APPEND "tdf s /event . tdf " 

200 PRELUDE: PROC loadim;GRAF ON :_ShowCursor : PROC debut 

22 DEB JEU; PROC NbreJo:PROC affnom 

300 REM * Jeu de 1 £ 3 coups * 

310 JEU: c =l:h%-21B:v%=32:sbc%=4:IF n=l THEN h%=244 : sbc%=8 

320 IF nt>9 THEN h%=h%-S 

330 PROC msg(h%, v%, sbc%,sfc%, STRS (nt) ) 

345 ON nf (n)=l2 GOTO passe 

350 COUPS; IF c>3 THEN GOSUB replace :GOTO figure 

360 REM * Joue, Satisfait, Rechoisir * 
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11 




PROC event 






1 X u 




ON y%>l50 AND y%<l63 AND x%>160 AND x%<236 GOTO 


joue 




4 9 




IF y%>180 AND y%<193 AND x%>160 AND x%<236 THEN 
GOTO figure 


GOSUB 


replace: 






IF y%>165 AND y%<178 AND x%>160 AND x%<236 THEN 
GOTO Choix 


GOSUB 


replace: 


4 4 




IF y%>180 AND y%<!93 AND x%>244 AND x%<310 THEN GOSUB quitte 


450 




rem * Choix des des * 






4 60 




FOR i%=l TO 5: SetRect (r, 131+30 *i%, 58 , 155+3 *i% 


, 80 J 

F r 




47 n 




ON EXFN PtlnRect (Pta+10, r) =-1 GOTO deplace 






480 




NEXT : GOTO choix 






520 

—J s. u 




ON dc { i%) >0 GOTO Choix 






530 




dc ( i% ) =1 : PROC eff des ( ): PROC affdes(4 6} 






54 




GOTO Choix 






550 


REP Li ACE ■ 


FOR i%=l TO 5: ON dc(i%}=0 GOTO 570 






560 

•J U VJ 




dc(i%}=0:PROC ef fdes (46) :PROC affdea{0) 






570 




NEXT : RETURN 






5fl 




FOR i%=l TO 5: PROC effdes(O) : NEXT 






J ■? w 




FOR i%-l TO 5: ON dc(i%)>0 GOTO 610 






600 

U HJ V 




des U%) -INT (RND(l) *6)+l:PROC af fdes{0) 






610 

\J _L V 




NEXT ic^c+l : GOTO coups 






620 




REM * Choix des figures * 






630 


FIGURE - 

£ -L- Tj M lTi_L_J + 


PROC event 






640 




ON y%>150 AND y%<lC3 AND x%>244 AND x%<310 GOTO 


passe 




'J J u 




IF y%>!80 AND y%<l93 AND x%>244 AND x%<310 THEN 


GOSUB 


quitte 


G 6 




FOR f%=l TO 12:_SetRect {r,42,17+l0*f%,118,26+10 


*f%) 




670 




ON EXFNFtlnRect (Pta+10, r)>-l GOTO 700 






U y 1/ 




ON f%<7 GOTO una six 






690 




ON f%-6 GOTO full, carre, suite, yam, mini, maxi 






7QG 




NEXT: GOTO figure 






820 




REM * Validations des Figures * 






830 


UNAS IX; 


ON T(n,f%)>0 GOTO figure 






8 40 




FOR i%=l TO 5: IF des(i%)=f% THEN T (n, f % ) =T (n, f % ) + 1 




85 J 




NEXT : ON T(n,f%)=0 GOTO figure 






860 




GOTO resultat 






670 


FULL ; 


ON T{n,i%)>0 GOTO ::igure 






880 




k=des il) :xl-k ; j=0 






890 




FOR i%=2 TO 5: IF fies(i*3<>k THEN fcl=des(i%) 






<J0 




NEXT 






Q 1 




FOR i%-2 TO 5: ON des (i% 5 Ok AND des(i%)<>kl GOTO figure 


3 z u 




NEXT 






y j u 




FOR i%=2 TO 5: IF k«des(i%> THEN j-j+1 






9 4 




NEXT: ON j-0 OR j=3 GOTO figure 






9 SO 

J J u 




T ( n , 7 ) = 1 : GOTO resultat 






<i ao 




j-0:ON T(n,8)>0 GOTO figure 






97 




FOR i%-2 TO 5: IF des ( i% ) =des ( 1 ) THEN j=j+l 






q ft n 

J Q *J 




NEXT: ON j>2 GOTO 1010 










FOR i% = 3 TO 5:ON des ( i% ) Odes ( 2 ) GOTO figure 






1000 




NEXT 






1010 




T (n, 8 } -1 : GOTO resultat 






102C 


SUITE: 


ON T{n,9}>0 GOTO figure 






1030 




FOR i%=2 TO 5 






1040 




IF des ( i % - 1 ) >des ( i % ) THEN j=des { i% ) :des (i%) =des ) :des (i%-X) 






=j :GOTO 1030 






lCbO 




NEXT: j-0 
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1060 




FOR i%-2 TO 5: IF des ( i% ) -des ( i%-l ) <>1 THEN j-j+1 


1070 




NEXT: OK j>0 GOTO figure 


ioeo 




T {n r 9) -1 :GOTO result at 


1090 


YAM : 


ON T(n,l0)>0 GOTO figure 


1100 




FOR i %=2 TO 5: ON des ( 1) odes (i%) GOTO figure 


1110 




NEXT :T (n, 10} — 1 :GOTO re suit at 


1120 


MINI : 


j-0 : ON T (n , 1 1 ) >0 GOTO figure 


1130 




FOR i%-l TO 5 : j = j +de s ( i % ) : NEXT 


1 140 




ON T(n,12)>0 AND T(n,12)<=j GOTO figure 


1150 




T In. 1 1 ) =n * GOTO re suit at 


1160 


MAXI : 


i— 0-ON T { n „ 12 } >0 GOTO fiaure 


117 




FOR i%=l TO 5 : i=i+des ( i%) :NEXT 


1180 




ON T(n,ll)>0 AND T(n,ll)>=j GOTO figure 


1190 




Tin 12 'GOTO re suit at 


2000 




REM * Resultat * 


2010 


RESULT AT 


:nf (n) =nf (n) +1 : s%=b (f %) *T (n, f %) : IF f%>l0 THEN s%=T(n,f%) 


2020 




h%— 31 : v%=25+10*f % : IF n=l THEN h%-l37 


2040 




IF s%>9 THEN h%-h%-8 


2050 




PROG msg {h% r v%, 12, f STRS {s%) ) 


2060 




S %=Q:FQR i%=l TO 12 : s%=s%+b (i%) *T (n, i% } : NEXT : T (n, ) =s% 


2070 




h%^31 : v%=159 :IF n=l THEN h%=l37 


2080 




IF s%>99 THEN h%=h%-l6 :GOTO 2100 


2090 




IF s%>9 THEN h%=h%-8 


2100 




PROC msg { h% , v% , 13 , , STR$ ( s% ) ) 


7 1 7 n 




RFM * Jnnpn r ^uivant * 

1 u UU ~- LA J- k_J U X. V U li L 


2 1 3 


PASSE * 


FOR i%=l TO 5: PROC ef f des { ) : NEXT 


7 1 4 n 




n=n+ 1 "ON n<n i GOTO ieu 


2150 




nt*nt+i:ON nt>20 GOTO fpartie 


2160 




n=0:GOTO jeu 


217 




REM * Fin de la partie * 


218 






2220 




ON y%>l65 AND y%<178 AND x%>244 AND x%<310 GOTO rejouer 


2230 




IF y%>l80 AND y%<193 AND x%>244 AND X%<310 THEN GOSUB quitte 


2240 




GOTO fpartie 


2300 


QUITTE . 


PROC msg<174, 90,7, 0, "En "+CHR$ ( 1 4 4 ) +" tes vous S"+CHRS (158 ) +" r" ) 


2310 




PROC reponse;IF l%-0 THEN RETURN 


2320 




ClearMouse :GRAF OFF : END 


2 400 




REM * Rejouer * 


?410 




BlockMove (sources, desta, longa) :nt=l :n=0 :nf ( ) =0 : nf ( 1} -0 


2420 




FOR i% = TO l:FOR 3% = 1 TO 12 : T ( i% t j % ) =0 : NEXT j%,i% 


2430 




PROC msg (168, 90, 7, 0, "Les m"+CHR$ ( 144 ) +"mea joueurs") 


2440 




PROC reponse:IF 1%=1 THEN PROC af f nom: GOTO jeu 


2450 




GOTO deb jeu 


2500 




REM * Affiche les des * 


2 510 


AFFDES: 


DEF PROC affdes (v%) :h%-30*i% 


2520 




Set Rect (r, I3l+h%, 58+v%, 155 fh%, 80+v%> 


2530 




SetSolidPenPat (9) r_PaintRect (r) :_SetSolid^enPat (0) 


2540 




vl%-€l+v%:v2%=68+v%: v3%-T5+v% :hl%=l35+h% :h2%=142+h% ih3%=149+h% 


2550 




ON des(i%) 5OT0 del t de2 f de3 , de4 f de5 , de 6 


2560 




END PROC affdes 


2570 


DEI: 


y%=v2%:x%=h2V:FRDC pts:GOTO 25 6 


2580 


DE2 : 


y%=vl% :x%=hl% :PROC pta : y%=v3% : x%=h3% : PROG pts:GOTO 2560 


26C0 


DE3: 


y%-vl%;x%^hl%:PROC pts : y%=v3% : x%-h3% : PROC pts 


2620 




y%=v2%:x%=h2%:PROC pts: GOTO 2560 


2630 


DE4 : 


y%=vl%:x%=hl%:PROC pts : y%=v3% : x%=h3% : PROC pts 
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2650 y%-v3% :x%=hl% :PROC pts :y%-vl% : x%=h3% : PROC pts: GOTO 2560 

2670 DE5: y%=vl % : x%=hl% : PROC pts : y%-v3% : x%=h3% : PROC pts 

26 ^0 y%=v2% :x%=h2%;PROC pts : y*=v3% : x%=hl %: PROC pts 

2710 y%-vl%:x%-h3%:PROC pts : GOTO 25 60 

2720 DE6; y%=vl% : x%-hl% : PROC pts : y%— v3% : x%™h3% : PROC pts 

2740 y%«v3%:x%-hl%;PROC pts :y%=vl% :x%«h3% : PROC pts 

2760 y%-v2%:x%=hl% :PROC pts : y%=v2% r x%=h3% : PROC pts: GOTO 2 560 

277 4 POINTS: DEF PROC pts 

2760 SetRect (r,x%,y%,x%+2,y%+2) ;_FaintRect {r) 

27 90 END PROC pts 

3000 EFFDES: DEF PROC ef f des ( v% ) : h%-30 *i% 

302 _SetRect (r, 131+h% , 56+v% , 155+h%, 80+v%) 

3030 _SetSolidPenPat (7) :_PaintRect (r) 

3040 END PROC effdes 

42 00 EVENT: DEF PROC event 

42 10 FlushEvents (-1, 0) : P t a™VARPTR { event I (0}) 

4220 _GetNextEvent (-l r Pta) :ON event t (0> +event ! (1) *256=0 GOTO 4220 

4230 y%=event ! (10)+event ! {11) *25 6 :x%=event ! (12) +event ! {13)*25 6 

4 240 END PROC event 

4 39 9 rem * Nombre de Joueurs & leurs noms * 

4 4 00 NBREJO: DEP PROC nbrejo:PRQC msg {160 , 32 , 7, , "Nombre de joueurs: "> 

4-310 PROC capte(288f 82, 0) :nj-ASC(nS»-4B 

4420 IF nj<l OR nj>2 THEN PROC msg ( 2 96, 82 , 7 , 7, » ") ■ GOTO 4410 

4450 PROC msgU60, 98, 7, 0, "Votre Norn :"):PROC capte (232 , 98 , 7 ) : nl5=n3 

4460 ON nj=l GOTO 4460 

4470 PROC msg (160, 110, 7, 0, "Votre Norn : " } :PROC capte ( 232 , 110 , 7 ) t 
n25=n$ 

4480 PROC fen(155, 68 r 310, 130, 7) 

4490 END PROC nbrejo 

4600 CAPTURE; DEF PROC capte (hl% , v% , ca% J : h%=0 : i-Q : n$=" " 

4 610 GETSX3 : X$-CHR$ { ASC ( X$) -128 ) :ON X$-CHR$<13) GOTO 4670 

4620 ON X5-CHR${127) GOTO 4650 

4630 ON i>ca% GOTO 4610 

4 632 IF X?-CHR$(123) THEN X$-CHR$ {ASC (X$ ) +19 ) 

4 ^34 IF X$=CHR$(125) THEN X$=CHR$ (A3C (X$ ) +18 ) 

4 636 IF X$=CHR$(92) THEN XS-CHR$ ( ASC £X$ ) +4 9 ) 

4 638 IF X$-CHR$ (64) THEN XS=CHR$ ( A$C {X$ ) +72 ) 

«40 h%-h%+B:i=i+l:n$-n$+XS:PRGC msg <hl%+h% , v% , 7 , f X$) : GOTO 4610 

4 650 ON n5="" GOTO 4 610 

4 &60 PROC msg<hl%+h%, v%, 7, 0, " "): 1=1-1 :n$=MID$ {n$, 1, i) : h%-h%-8 :GOTO , 
4610 

4 670 ON n5=" n GOTO 4 610 

4 680 END PROC capte 

4800 AFFMSG : DEF PROC msg (h% , v% , sbc% , Sf c%, z$ ) 

4 910 SET {msg! ( ) ) =*z$ :_SetBackColor ( sbc* ) :_SetForeColor(sfc4) 

4 020 _MoveTo(h%, v%> : _DrawSt ring (VARPTR {msg ! {0) ) ) 

4 630 END PROC msg 

50 00 AFFNOM i DEF PROC affnom 

5010 PROC msg (14, 21, 4, 0,nl$) :ON nj=l GOTO 50 4 

5030 PROC msg(84, 21, 8, 0,n2$> 

504 END PROC affnom 

5300 DEBUT: DEF PROC debut 

5302 PROC msg (178, 10 1,7,0, "Andr"+CHR$ { 142) + " Brossaud") 

5303 PROC msg(170,ll0,7, 0, "et Tremplin Micro") 

5304 PROC msg{l86, 119,7, 0, " (c) juin 1988") 

— ^ ^ ^ / PACE 23 / — 
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5310 FOR i%-l TO 5 : de s ( i % ) = INT { RND £ 1 ) + 6 } + 1 ; F ROC af fdes (0) : NEXT 

5320 FOR i=l TO 600 :ON EXFN_Button ( ) GOTO 5340 

5330 NEXT : FOR TO 5:FROC ef fdes ( ): NEXT : GOTO 5310 

5340 FOR i%=l TO 5:PROC ef f des ( 5 : NEXT ; PROC f en ( 155, 68 , 3 1 , 140 , 7 ) 

53 50 PROC msg (160, 78 f 7, 0, "Voulez-voua lire la") 

5355 PROC mgg{l88, 8B,7, 0, "R"+CHR$ (143) +"gle du jeu") 

5360 PROC reponsezPROC fen (155, 68, 310 , 130 , 7 ) 

5375 ON l%-0 GOTO 5410 

5380 GOSUB aide: GRAF INIT 32 :_BlockMove ( sourcea, dest k t lonqk ) 

53 90 GRAF ON:_ShowCursor 

5410 END PROC debut 

6000 FENETRE: DEF PROC f en (hl% , vl % , h2% , v2% , ssp% ) 

6010 SetRect (r, hl%, vl%,h2% f v2%> :_SetSolidPenPat (ssp% ) :_PaintRRect ( 

r,8,8) 

6020 END PROC fen 

6100 REPONSE: DEF PROC reponse :_SetSolidPenPat ( 15 ) 

6110 _SetRect ( r, 1 90 , 92 , 22 8 , 101 ) :_PaintRRect ( r, 8,8) 

6120 _SetRect (r,235, 92,273, 101) :_PaintRRect (r, 8, 8} 

6130 PROC msg (198, 100, 15, 0, "Oui") :PROC msg {242, 100, 15, 0, "Non" ) 

6140 PROC event 

6150 IF y%>92 AND y%<l01 AND x%>190 AND x%<228 THEN l%-l:GOTO 6180 

6160 IF y%>92 AND y%<101 AND x%>235 AND x%<273 THEN 1%«0:GOTO 6180 

6170 GOTO 6140 

6180 PROC fen(l64, 82, 298, 102,7} 

6190 END PROC reponse 

6500 LOAD I M : DEF PROC loadim: 1%=1 02 84 

6510 OPEN "imyamc", FILTYP=192 AS£1 , 1% : GET£ 1 ; pic ! (0) :CLOSE£l 

6520 SET (0n=VARPTR(imyam! (0) ) :SET (b[ (4) ) =32768 

6530 JUnPackBytes (VARPTR (pic! (0) ) , 1% r VARPTR (b ! CO) ) , VARPTR (b ! (4))) 

6540 sourcea=VARFTR (imyam! (0)) : desta=147 537 92 : longa=327 68 

655 BlockMove (sourcea, desta , longa ) 

65 60 END PROC loadim 

7000 ERREUR: OFF ERR : NOTRACE : GRAF OFF 

7010 PRINT "Erreur n°"ERR " "ERRTXTS (ERR) " a la ligne "ERRLIN : PRINT 

7020 END 

8000 AIDE: PROC f en (0, 0, 320, 200, 1) :PROC f en (2 , 2 , 3 1 8 , 1 98 , ) 
8010 PROC fen(4, 4, 316, 196, 4) 

8 020 GRAF ON : ShowCurSQr 

8030 PROC msg (86, 20, 4, 3, "R"+CHR$ (143) +"gles du jeu de Yam") 

804 PROC msg (18, 36, 4, 0,"Ce jeu ae joue "+CHRS ( 136) + n un ou deux 

joueurs et une" ) 

80 60 PROC mag (10, 46, 4, 0, "partie est compos" +CHR$ ( 1 42 ) +"e de vingt 

tours . " ) 

8 070 PROC msg (18, 64, 4, 0, "On joue de un "+CHR$ (136) +" trois coups par 

tour en") 

8080 PROC msg (10, 74, 4, 0, "gardant si on veut certains d"+CHR$(142) 

+"3.") 

8090 PROC msg (18, 90, 4, 0, "Le but est de former des figures, groupes") 

8100 PROC msg ( 10, 100, 4, 0, "de 1, 2, "+CHR$ (136) +" 6, FULL (paire 

+ triplet) , ") 

8110 PROC msg {10, 110, 4, 0, "CARRE (4 d"+CHR$ < 1 42) +"s "+CHR$(142)+ 

"gauxj , SUITE (12345, 23456),") 
8130 PROC msg (10, 120, 4,0, "YAM (5 d"+CHR$ ( 1 42 ) +"s "+CHR$(142)+ 

"gaux) . ") 

8140 PROC msg (18, 136, 4, 0, "On a droit "+CHR$ ( 142) +"galement "+CHR$ 
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(136)+" deux figures") 


8160 


PROC msg ( 10 , 146, 4 , , "dormant la somme das d M +CHRS (142 J +"s ma is 




1 'une, M ) 


8170 


PROC msg ( 10, 156, 4, 0, "MINIMUM, doit "+CHR$ ( 14 4 ) +"t re inf "+CHR$ { 




142)+"rieur "+CHR$ ( 1 3 6 ) +" 1' autre/") 


8190 


PROC msg U0, 166, 4, 0, "MAXIMUM,") 


8200 


nS="SUITE n :PROC btn 


8220 


PROC mag (18, 36, 4,0, "Cliquez sur ' JOUER' pour lancer les d"+ 




CHR5 {142) +"5, ") 


8240 


PROC msg ( 10, 4 6, 4, 0, "puis sur ceux qui amor cent une figure et "+ 




CHRS (136) ) 


9250 


PROC msg (10, 56, 4, 0, "nouveau sur 'JOUER 1 ) 


8260 


PROC mSQ ( 18 , 7 6 * 4 r , "Si vous avez une ficrure avant la fin rl^*"V 


8270 


PROC flftSCf (10*86*4.0 "t rfii^ fnnns, rl i nrin»7 ^tit- 1 ^jtt^vitt 1 i-m ^ e \ 


8280 


PROC msa ( 1 x 9 6 » 4 # * "sur une rfe^ f innrps 'TTT^J 1 "+rHR <l > M "36.^ + tt 




'MAXIMUM' . ") 


8290 


P ROC HIS O f 1 8 - 116.4,0, "A la fin fi^ f rfjjo nniinq j~0 A m\&rr 4n r 




une") 


0300 


PROC mag (10, 12 6, 4 , 0, "des figures ou sur 'PASSE',") 


8 310 


PROC msg (18, 14 6, 4, G, "Pendant la phase des trois coups, vous") 


8320 


PROC msg ( 10, 156, 4, 0, "pouvez remettre les d"+CHR$ ( 142 } +"s en 




clace en cli-'M 


8340 


PROC msg { 1 0, 1 6 6 , 4 , 0, "guant sur ' RECHOISIR 1 . " ) 


8350 


n$ = " SUIT E " : P ROC bt fi 


8380 


PROC msti { 1 8 , 36 , 4 , , "Les vincrt tours terrain "+CHR5 (142\ + N q um^ 




DOuve z " 1 


8390 




8400 






ou d 1 aut res " ) 


8410 


PROC msa ( 10 . 66 * 4 , * " ioueurs " ) 


8420 


PROC msof (18,89,4,0, "En fin , oour sortir du neu clicrnp2 ^nr'n 


8430 


PROC msg (10, 99, 4, 0, "' QUITTER 1 . " ) 


8440 


n$=" FIN ":PR0C btn 


8450 


RETURN 


8 460 BOUTON: 


DEF PROC btn 


B 470 


l-l. \ 3- t i-vu, -i- ' J^AlUf X J lj j . jeLoui ±ur t5 1 lr siL-^vJ ■ r a 1 rl l r\rve C u 




(r,12,12) 


B480 


_SetRect (r, 108, 175,208, IBB) : SetSolidPenPat (15) : PaintRRect 




(r,12, 12> 


8482 


PROC msg<139,185, 15, 0,nS) 


8484 


PROC event :ON y%<173 OR y%>190 OR x%<106 OR x%>210 GOTO 8484 


8486 


PROC fen {4, 24, 316, 19 6, 4) 


8488 


END PROC btn 



Pour devenir un as du GS Basic, offrez-vous : 

~~~~T~7~~" Un ouvraee 

* L 2.?525 ,W ?™ TREMPL1N MICRO 

DU CS Basic 

260 pages + dtsquette. 

Utilisez le bulletin de commande, i la fin de la revue 
^ ^ ^^^^-^^^^ / RACEME / — 
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DE L APPLESOFT AU C 

La mojorite des lecteurs de Tremplin Micro connaissent lAppleSoft etparmi eux, cer- 
tains possedenf an GS. Le langage C apporte de nets avantages par rapport au 
Basic, entre autres la Vitesse et la puissance de la programmation structures Voila 
pourquoi nous vous proposons d'adapter vos programmes Basic grace a quelques 
fonctions d'entrees/sorties et de conversions en C . 

Ces fonctions utilisent frois outits du GS : TextTool, IntegerMath et SANE (Standard 
Apple Numerics Environment}. 



DESCRIPT ION DES FONCTIONS 



• Initio : 

— Initialisation et selection de I'ecran comme 
peripherique de sortie et du clavier comme 
peripherique d'entree. 

— Equivalent Bosk : PRE3 suivit de IN£3> 

— Selection de I'ecran comme peripherique de 
sortie. 

— Equivalent Basic : PRO. 

# «*l»ctff>r inter : 

— Selection de Timprimante comme peripheri- 
que de sortie. 

— Equivalent Basic : PR£1. 

• ntwUni : 

— Envoie un saut de ligne sur le peripherique 
de sortie courant. 

— Equivalent Basic : PRINT, 

* clear screen : 

_ Efface I'ecran et posifionne le curseur en 
haut et a gauche, 

— Equivalent Basic : HOME. 

* gotoXY : 

— Positionne le curseur a la position designee 
sur I'ecran* 

— Equivalent Basic : HTAB X% suivi de VTAB Y%. 

— / pace am / — 



Parametres : 

X : type int, represente la position horizon- 
tale. 

Y : type int, represente la position verticale. 

• prlntworti : 

— Envoie une chafne de carocteres sur le peri- 
pherique ecu rant* 

— Equivalent Basic : PRINT A$;. 

— Poramfetre : 

Cttype pointer, represents la chaine de 
carocteres de type C (chaine se termi- 
nant par le code ASCII O) a envoy er. 

• Printline : 

— Envoie une chaine de carocteres suivie d'un 
retour 6 la ligne sur le peripherique 
courant, 

— Equivalent Basic : PRINT A$ s 

— Parametre : 

C :type pointer, represente la chaTne de 
caracteres de type C a envoyer, 

• InputStrlnq : 

— Entree d une chaine de carocteres au clavier, 

— Equivalent Basic : INPUT A$, 

— Parametres ; 

C : type pointer, represente 1'adresse au 
sera stockee la chaine entree. 

L : type int r represente le nombre maximal 
de carocteres 6 entrer au clavier* 
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— Valeur de retour : 

N :type int, represents le nombre de carac- 
teres reellement entres au clavier. 

• pr In tint : 

— Conversion d'un nombre entier puis envoi 
sur le peripherique caurant. 

— Equivalent Basic : PRINT 1%. 

— Parametres : 

I : type int, represente lo valeur 6 convertir 

et d envoy er, 
L : type int, represente le nombre de oaroc- 

teres 6 justifrer a droite, 
F : type int # drapeau pour le format [0 non- 

signe, 1 signe). 

• Inputlnt : 

— Entree d un nombre entier au clavier puis 
conversion. 

— Equivalent Basic : INPUT 1%. 

— Valeur de retour : 

I : type int P valeur du nombre entre, 

• prlnuong ■ 

— Conversion d'un nombre entier long puis 
envoi sur le peripherique courant. 

— Equivalent Basic ; aucun. 

— Parametres : 

I : type long, represente la valeur a conver- 
tir et a envoyer. 

L : type int. represente le nombre de carac- 
teres a just if ier d droite, 

F : type int, drapeau pour le format (0 non- 
signe, 1 signe), 

MODE I 

"Ote : L'utilrsation d'APW 1.0 et d'APWC 1.0 
sont obligatoires (disponibles aupres 

de D.D.A,). Apres avoir tape les 3 fichiers 

(IOFUNC.C, IOFUNCH et TESTIO,C) f compiler 

IOFUNC.C et TESTIO-C : 
COMPILE -E-W IOFUNC.C KEEP = $ CC"(-P) 
COMPILE -E -W TESTIOX KEEP = $ CC = (-P) 

tinker TESTIO.ROOT : 

LINK 2/STAHT TESTIO IOFUNC KEEP = TESTIO 

Pour f oncer le programme TESTIO, taper : TESTIO 



• InputLong : 

— Entree d'un nombre entier long au clavier 
puis conversion. 

— Equivalent Bask :aucun. 

— Valeur de retour : 

I : type long, valeur du nombre entre. 

• prlntFIt : 

— Conversion puis affichage d'un nombre flat- 
tant sur (e peripherique courant. 

— Equivalent Basic : PRINT D, 
Parametres : 

X:type extended, represente la vafeur a 

convertir ef a envoyer, 
L ', type int, represente le nombre de carac- 

teres 6 justif ier a droite + 
I : type extended, represente la valeur 

minimafe pour le passage en notation 

scientifique, 
S : type extended, represente [a valeur 

maximale pour le passage en notation 

sdentifique. 
P : type int r represente le nombre de chif- 

fres apres la vlrgule. 

• InputFIt : 

— Entree d'un nombre flottant au clavier puis 
conversion. 

— Equivalent Basic : JNPUT a 

— Valeur de retour ; 

X :type extended, vafeur du nombre entre. 



Copier ensuite le fichier IOFUNC, H dans le dossier 
2/CINCLUDE et IOFUNC, ROOT dans 2/ : 

COPY IOFUNCH 2 /C INCLUDE 

COPY IOFUNC. ROOT 11 

Pour utiliser les fonctions de IOFUNC quel que soit 
votre programme, if suffit dlnclure dans le fichier a 
compiler : Cinclude <IOFUNC.H> 
et lors de Tedition de liens, de jaindre a la liste des 
fichiers IOFUNC. ROOT 

LINK 2 /START THEFILE 2/IOFUNC KEEP = THEFILE 



B/BUOCRAPHIE 



• CLEFS POUR APPLE UGS 2* edition (P,S.L pqr 
Nicole Breaud-Pouliquen). 

* APPLE UGS TECHNICAL REFERENCE (Mc Grow Hill). 



Text Tools + 17(D.D.A.) + 

Integer Math Tools 00:30 (D + D<A.). 

SANE Tool set ERS 0.80 
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Norn du fichier: IOFUNC.C 

Description: Fonctions d ■ ent rees / sorties et de conversions, 
( c ) 1988 CH AKLY et F. SIG AL , el TREMPLIK MICHO 
Version TIGS, pour Corftpilateur C APWC 1.0 



1 

2 /* 
3 
4 
5 
6 
7 
8 

9 *7 
10 

11 

12 /« 
13 
14 
15 */ 
16 

17 # include <types«h> 

18 ^include <texttool.h> 
# include <intnvath.h> 
♦include <sane«h> 



Inclut les definitions, structures et fonctions 
utilisees dans les fonctions. 



/* Definitions internes 



Variables globalest 

- drapeau si selection invprimante. 

- buffer servant aux entrees/sorties, 

- sequence du retour chariot pour l'ecran. 



19 
20 
21 

22 
23 

2 4 #define _carriageReturn OxOD 
25 # define _printerSlot 1L 
2 6 #define screenSlot 3L 
27 #define andMask OxlF 
2B #define orMaslc 
29 

30 / 1 
31 
32 
33 
34 
35 */ 
36 

37 int _printerFlag; 

38 char iobuf f er [ 8 1 ] ; 

39 char _crSeq[] =e_carriageReturn, OxOA, Oe; 
40 
41 
42 

4 3 decimal _decStrConv; 
44 decform _decFrrtvConv ; 
45 
46 
47 
48 
49 
50 

51 */ 
52 

53 initlOO 



*/ 



/* Structures utilises pour la conversion des nombres flottants, 



*/ 



Initialisation des entrees/sorties. 

Devices Pascal pour 1-teran et flection de l'ecran, 
mise en place des masques de filtrages. 



54 
55 



[ 



SetInGlobals{_andMask r _orMask) ; 
— / PACE 28 / 



Les numSros de tignes n«? doivent pas 
etre tape's. Its ne sont indiqufe que pour 
information. 
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L £ 




SetOutGlobals {_andMask, _orMask) ; 








oet,_rrfj_i_QDa±s ( anaMa sk f orMask) ; 




□ o 




Set InputDevice (pascalType, _screenSlot ) ; 




Si Q 

OS 




SetOutputDevice (pascalType, _screenSlot ) ; 




□ u 




SetErrorDevice (pascalType, _screenSlot ] ; 




O X 




InitTextDev ( input) ; 








iniL lexLuev (output ) ; 




63 




Tfl 1 f TC Tf f- T~>j=l t f far -p- v-j 1-1 ! ■ ■ f>i if I . 

u icAu. jj^; v ler r o r u u & pu tl } j 




64 




J- i.iJi_trj_r j. ci ■y — r a Jj & t ,i 






j 






66 








67 








bo 


/* 










Selection de 1 ' imprimante . 




7 n 




Devices Basic pour 1 * imprimante . 




7 1 


*/ 






7 9 








/ 3 


selectPrinter () 




74 


( 






75 




if { !_printerFlag> /* Teste si imprimante 


non selectionn^e, 


76 




( /* sinon on 


passe . 


77 




SetOutputDevice (basicType, _printerSlot ) ; 




78 




InitTextDev (output ) ; 




■-p Q 




j»rinterFlag=TRUE; 




o U 




\ 




81 


! 






82 








83 








^ 


/* 






85 




Selection de 1 1 ecran . 




O ft 




Devices Pascal pour 1 'ecran. 




CI T 


*l 






D Q 








o a 


selectScreen () 




90 


1 






91 




if (_printerFlag) /* Teste si imprimante 


select ionnee, 


92 




I /* sinon on 


passe . 


93 




SetOutputDevice (pascalType f screens lot) ; 




a a 




InitTextDev (output) ; 




y b 




_p r inter Flag= FALSE; 




96 




) 




97 


! 






98 








99 








inn 
100 


/* 






i n i 




Effacement de 1" ecran. 








Envoi du caractere de controle* 




103 


*/ 






: 4 








105 


clearScreen O 




106 


( 






107 




if ( !_printerFlag) WriteChar (OkOC) /* Teste si imprimante non 


108 


) 


/* select ionnee. 


pour ecran seulement , 


109 








110 









*/ 

*/ 



V 
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111 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

126 

12 9 

130 

131 

132 

133 

134 

135 

136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
161 
165 



Posit ionnement du cur$eur sur l*ecran. 

Voir code gotoxy de la carte 80 colonnes 



gotoXY(_x,_y) 
char _x, _y; 



if ( !_printerFlag) 

{ 

_x+^32; 

*_iobuf fer=0xlE; 
* (_iobu£ f er+1) =_x,- 
* (iobuf fer+2) =_y; 
* (_iobuffer+3) =0; 
WriteCString {iobuf fer} 

} 



/* Teste si imprimante non 
/* select ionnee, pour ecran seulement- 
/* Position X + 32. 
/* Position Y + 32 . 
/* Code de gotoxy* 
/* Stocke position X. 
/* Stocke position Y, 
/* Fin de chains C, Stocke 0. 
/* Envoi de la sequence de comma nde 



*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
.*/ 



Envoi un retour chariot sur le p^ripherique courant. 

Teste le peripherique pour connaitre le(s) code {3} A envoyer. 

*/ 

newLine ( ) 
{ 

if C _printerFlag) WriteChar <_carriageReturn) ; /* Teste si 

/* imprimante select ionnee, envoi du code retour chariot 
else WriteCString (_crSeq) /* Sinon, envoi d'une sequence 

/* pour l r ecran. 

] 

/* Envoi d'une chaine de caracteres sur le peripherique courant . 

printWord (string) 
Char *_string; 
( 



*/ 
*/ 
V 
*/ 



*/ 



WriteCString {_string> 



/* Utilisation interne de cette fonction. V 

int inputLine (_length) 

int ^length; 

{ 

char _code; 
int _count; 

^count-0; 

do . 

{ /* Lecture d'un caractere au clavier sans 1 1 af f icher . * / 

_code=ReadChar (noEcho) ; 

if ( (_code>0xlFU£ (_code<0x7F) ) /* Teste si touche majuscule, */ 



/ PACE SO / 
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16€ I /* minuscule ou chiffre, */ 

167 /* Affichage et stockage du caractere**/ 

168 WriteChar (_code) ; 

169 * ( iobuf f er+_count++) -_code; 

170 } 

171 /* Teste si touche Backspace ou Delete.*/ 
1*72 else if ( (_code— 0x08 | | _code==0x7F) && (_count>0) ) 

173 ( 

174 /* Efface le dernier caractere entre, */ 

175 WriteChar (0x08) ; 

17 6 — count; 

177 } 

178 ) 

179 /* 

18 Continue tant que le nombre maximal de caracteres n'est pas atteint 

181 ou que le code n'est pas celui de la touche Return. 

182 */ 

183 while { (_count< length) &M_code !=_carriageReturn) ) ; /* Teste si */ 

184 /* touche Return pour annulation des caraetdres apr&s le curseur . */ 
105 if {_code— _carriageReturn) WriteChar { OxlD) ; 

186 * (_iobuf fer+_count) ^0; /* Fin de chaine G, stocke 0, */ 

187 /* Retourne le nombre de caracteres recus, */ 
18 8 return (count) ; 



189 } 

190 

191 

192 /* Entree d'une chaine de caracteres. */ 
193 

194 int input St ring (_st ring, length) 

195 char *_string; 

196 int length; 

197 { 

198 int count; 
199 



200 if ( !_printerFlag) /* Teste si imprimante non select ionnee, */ 

201 f /* pour ecran seulement. */ 

202 /* 

2 03 Appel de la fonction input Line et recuperation du nombre de 

204 caracteres recus , 

205 */ 

20 6 _count- input Line (length) ; 

207 /* Recopie de la chaine de iobuffer dans _string. */ 

2 08 for {_i=0;i<_count;_i++) 

2 09 * <_string+_i) =* (_iobuf f er+_i) ; 

210 /* Fin de chaine C f stocke 0. */ 

211 * (string+count) =0; 

212 /* Retourne le nombre de caracteres recus. */ 

213 return {_count) ; 

214 } 



215 J 

216 

217 

218 /* Envoi d r une chaine de caracteres suivit d'un ret our chariot- */ 
219 

220 printLine (_string) 

■ / PACE Jf / — 
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{ 



) 



221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
2 52 
253 
254 
255 
256 
257 
258 
259 
260 
261 
2 62 
2 63 
264 
2 65 
266 
2 67 
268 
269 
270 
271 
272 
273 
27 4 
275 



char *_string; 



WriteCString <_3tring> ; 
newLine { ) ; 



^Conversion et envoi d'un noirtere entier sur le p^ripherique courant*/ 



print Int (value P _ just , _f lag) 
int value, _just, _flag; 



int ^length; 

/* Appel de la fonction Int2Dec pour effectuer la conversion. */ 
Int2Dec( value, _iobuffer, _just, _flag) f 

*{ iobuffer* just)=0,- /* Fin de Chaine C, stocke 0. / 

WriteCStringT.iobuffer}; /* Envoi de la chaine de caractexes . */ 



) 



/* Entree d'un nombre entier ats clavier. 

int input IntO 
\ 

int _length; 



if ( !_printerFlag) 



/* Test si imprimante non select ionnee, */ 
/* pour ecran seulement . */ 
l e ngth=inputLine(20) ; /'Lecture d'une chaine de 20 caracteres */ 
/* 

Retourne le nombre entier, 

apres conversion grace a un appel Dec2lnt. 

*/ 

return (Dec2 Int (_iobuf f er , ^length, 1) ) ; 



i 



I 



/* Conversion puis envoi d'un nombre entier long 

sur le periph^rique courant . 
printLong (value , _ just, flag) 
long value? 
int just, _f lag; 



int _length; 

/* Appel de la fonction Long2Dec pour effectuer la conversion. 
LongZDec <_value,_iobuf fer,_ just, _f lag) ; 
*( iobuff«r+ just)-0; /* Fin de chaine C, stocke 0. 
WriteCString(_iobuffer); /* Envoi de la chaine de caracteres. 



*/ 



^ — f OaL'APPLMSOFTAUC / 

276 /* Entree d'un nombre ent ier long au clavier. */ 
211 

278 long inputLong ( ) 

279 { 



2 80 int length, - 
281 

2 82 if { !_printerFlag) /* Teste si imprimante non select ionnee, */ 
2 83 { /* pour ecran seulement. */ 

2 84 _length=inputLine (20) ; /* Lecture d'une chaine de 20 carac teres . */ 
285 /* 

28 6 Retourne le nombre ent ier long, 

287 apres conversion grace a un appel Dec2Long. 

288 */ 

28 9 return (Dec2Long (iobuf fer , _length r 15 > ; 
290 J 



291 } 

292 

293 

294 /* Conversion puis envoi d'un nombre flottant */ 

295 sur le peripherique courant . */ 
2 96 print Fit (value , ^length , vmin, _vmax, virg) 

2 97 extended _value; 
2 98 int _length; 

299 extended _vmin, vmax; 

300 int vlrg; 

301 { 



302 extended _valabs; 

303 int index, _jmove; 

304 char *_string; 
305 

306 /■* 

307 si le nombre est egal a 0.0, 

308 on stocke ,T 0,0" dans la chaine de caracteres. 

309 */ 

310 if {_value==0 . } 

311 { 

312 *_iobuffer='0' ; 

313 * f_iobuffer+l)= 1 . ' ; 

314 * (_iobuffer+2)- , ' ; 

315 * (_iobuffer+3)-0; 

316 } 

317 else 

318 { 

319 valcibs^fabs ( value) ? /* Valeur absolue. */ 
320 

321 /* Teste les limites pour le passage en mode sclent if ique . */ 

32 2 if ( (_valabs>=_vmax) | | {_valabs<_vmin) ) 

323 ( 

324 /* E n dehors, notation decimale . */ 

325 decFrmConv* Style-FLOATDECIMAL; 
32 6 decFrmConv . digit s-_virgH-l ; 

327 } 

328 else 

329 { 

330 /* Ent re les deux limites , notation sc-ient if ique . */ 
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decFrmCon v « sty le=FIXEDDEClMAL ; 
decFrmConv .digit s=_virg; 



/* Appel aux fonctions num2dec et dec2str pour les conversions.*/ 
num2dec {G_decFrmConv, value, & decStrConv) ; 
dec2 s t r < S_decF rmConv , &_dec S t rCon v , iobuf f e r ) ; 



/* Donne la longueur de la chaine dans _iobu£fer. 

length=strlen (iobuf fer) ; 
/* Calcule la valeur de deplacement pour la justification, 
_j move-length -index; 
/* Si valeur de deplacement superieure a justification du nombre */ 

if (_jmove>0) 

/* Decalage. 

for ( ;_index>-0 ; — _index> 

* {_iobuf f er+_index+_jmove) = * ( iobuf fer+_index) ; 
/* Rempl a cement de la zone de justification par des espaces. */ 
for { index^_jmove-l,-_index>=D; — _index) 
* (_iobuf f er+_index) = r ' ; 

/* Fin de chaine C r stocke 0. */ 

* (_iobuffer+ length) ~0; 

/* envoi de la chain© de caracteres . */ 



WriteCString {iobuf fer) i 



331 
332 

333 J 
334 
335 
33 6 
337 

33B } 
339 
340 
341 
342 
343 
344 
345 

346 { 
3 4 1 
348 
349 
350 
351 
352 
353 
354 

355 ) 
356 
357 
358 } 
359 
360 

361 /* Entree d'un nombre flottant au clavier. 
362 

363 extended inputFlt () 

364 e 

365 short _ix, _vp; 
366 
367 

368 i 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
37 9 
380 
381 
382 
383 

384 } 

385 } 

/ PACES* / 



*/ 

*/ 



if(! jprinterFlag) /* Teste si imprimante non select ionnee 



/* pour ecran seulement . 
/* Flag de position dans la chaine 



*/ 
*/ 
*/ 



/* Lecture d'une chaine de 30 caracteres * */ 



_ix-0; 

input Line (30) ; 

/* Si chaine vide, mise en forme de la chaine.*/ 
if (*_iobuffer=-=G) 

( 

*_iobuf fer=l; 
* ( iobuf fer-H) 1 ; 

' /* Appel a str2dec pour la conversion,*/ 

str2dec (_iofouf f er, £_ix r &_dec5trConv, &_vp) ; 

/* Teste le drapeau d'erreur et traitement . */ 
if ( vp) return (dec2num(&_decStrConv} ) ; 
else ret urn (0.0); 
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1 

2 /* 
3 

4 Norn du fichier : IOFUNC ,H 

5 Description; fichier Header des fonctions de IOFUNC.C 

6 { C ) 190 3 CBARLY at F. SIGAL. #1 TREMPLlW MICRO, 

7 Version IIGS, pour Compilateur C APWC 1,0 
8 

9 */ 
10 
11 

12 extern int input St ring () ; 

13 extern int inputlnt{); 

14 extern long inputLong [ ) ; 

15 extern extended inputFlt {) 



2 /* 
3 

4 Nom du fichier; TESTIO.C 

5 Description; Prograirune test des f one t ions de IOFUNC.C 

6 (c) 1988 C. Mafaure, S.N. Cehef et TREMPLIN-MICRO 
1 Version IIGS, pour Compilateur C APWC 1.0 

8 

9 */ 
10 
11 



12 


# include "iof unc , h M 




13 






14 






15 


int n; 




16 


long 1; 




17 


extended d=0; 




18 


char c [31 ] ; 




19 


char rp [2 ] ; 




20 






21 






22 


ma in ( ) 




23 


( 




2 4 


initio () ; 




25 


clearScreen {} ; 




26 






27 


printWord ( "Ent rez un nombre 


entier ; ") ; 


28 


n=input Int ( ) ; 




29 


newLine { ) ; 




30 


printWord (" 1 n r est egal a 


: "3 ; 


31 


printlnt (n, 5 f 1> ; 




32 


newLine {) ; 




33 


newLine {) ; 




34 






35 


printWord {"Entree un nombre 


entier long : ") 


36 


1« input I*ong ( ) ; 
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37 newLine O ; 

38 printWord (" ' 1' eat egal a : 

3 9 print Long (1,12,1) ; 

40 newLine {) ; 

41 newLine {) ; 
42 

43 printWord ("Entrez un nombre decimal ; ") ; 

4 4 d-inputFlt ( ) ; 
45 newLine (> ; 

4b printWordC' M r est egal a ; "J ; 

47 printFlt (d, 12, le-5, le+5, 5) ; 

48 newLine ( ) ; 

4 9 newLine i ) ; 
50 

51 printWord {"Entrez une chaine de ca rate res ; ") ; 

52 inputString (c, 30) ; 

53 newLine ( ) ; 

54 printWord {" ' c' est egal a : " ) ; 

55 printLine fc) ; 

5 6 newLine { ) ; 
57 

5 8 printWord ( "Disposez-voua d'une imprimante en slot 1, prete a 
1 'utilisation ?") ; 

59 input St r ing (rp, 1) ; 

60 i f ( r p [ ] == 1 ' I I r p [ ] == 1 o ' ) 

61 I 

62 selectPrinter () ; 

63 printWord<" 'n' est egal a : ") ; 

64 printlnt {n, 5, 1) ; 

65 newLine ( ) ; 

66 printWord( M 'l 1 est egal a : "); 

67 printLongfl, 12, 1) ; 

68 newLine ( ) ; 

69 printWordC r d' eat egal a : ") 

70 printFlt (d, 12, le-5, le+5, 5) ; 

71 newLine ( ) ; 

72 printWord(" 'c* est 6gal a : 

73 printLine (c) ; 

74 newLine ( } ; 

7 5 select Screen () ; 

76 1 

77 else clearScreen ( ) ; 
78 

79 gotoXY{25, 10) ; 

SO printLine (" Test tannine, A bientot . . . " } ; 
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FACTARIF 



Vous le savez peut-etre deja, je suis c^ra- 
rniste depuis 1971, Apres avoir du refaire 
des foctures et des lettres 6 cause de fautes 
de frappe disgracieuses, j'ai decide que la 
micro informatique eta it un outil h essayer. 
NaTf, je croyais que cet instrument du pro* 
gres alfait me decharger de taches ennuyeu- 
ses P me permettre de disposer de plus de 
temps libre et d'avoir un bureau bien ronge. 
Si etablir une facture n'est plus en effet une 
corvee, puisqu'il est facile de la refaire en 
cas d'erreur, cote courrier, j'ai plutot davan- 
tage de travail cor le fait de disposer d'un 
traitement de texte incite a prendre la plume 
plus souvenf que par le passe. 

Pour ce qui est du temps libre et du bureau 
degage, c'est completement rate ! Entre les 
piles de revues, de livres, de disquettes de 
tous calibres, on trouve des cables, des 
interfaces et, parfois... des foctures de four- 
nisseurs ou de clients ! A ce jour, rien ne 
semble s'etre perdu, mais ga releve du mira- 
cle. D'autant que r depuis pres de deux ans, 
je reponds 6 vos questions quelquefois farfe- 
lues, parfois tres embarrassanfes. 

Apres s'etre drogue ou langage machine 
pendant de fongs mois, Guy-Hachette 
reclame du Basic. Comme, par ailleurs, on 
me demandait un programme de factura* 
tion, j'ai decide de vous communiquer mon 
auxilioire fidfrle : FACTARIF. 

En fait, je ne vous en donne qu'une partie car 
la pagination de Trempiin Micro n'est pas 
extensible. Pour utiliser fe programme 
public, il faudra que vous prepariez vos 
fichiers CLIENTS et TARIF 6 I'aide d'un traite- 
ment de texte comme APPLEWRITER ou par 
hntermediaire d'un petit programme BASIC 
errant les deux frchiers sequentiefs confor- 
m^ment aux structures suivontes : 



CLIENTS 

Stocker le nombre de fiches clients, puis les 



fiches proprement dites qui sont composees 
de 5 rubriques, s6par6es par des virgules. 
Des RETURN feraient I'affaire, mais lors d'un 
listage du fichier h I'aide de TYPE les virgules 
permettent de n'utiliser qu'une ligne par 
fiche (ou lieu de 5 avec des RETURN), 

Les rubriques sont : Patronyme, Rue, Com- 
plement d'odresse, Code Postal + Ville r 
Taux de remise eventueHement consent! (ce 
dernier detail est un ajout special Trempiin 
Micro repondant au souhait d'un correspon- 
dent i moi, je ne fais pas de remise). 



TARIF 

Un en-t#te regroupe : la rnoitie du nombre 
d'articles repertories (arrondi 6 I'unit4 supe- 
rieure} pour I'offichoge sur deux colonnes du 
torif. C'est un reliquat de la toute premiere 
version et je n'oi jamais pris le temps de 
remplacer par le nombre d'articfes, Ensuite 
vient le taux de TVA {ben out, je n'en traite 
qu'un !)* A mes debuts, j'accomplissais par- 
fois des taches que I'ordinateur aurait fort 
bien pu faire. C'est pour cela que la troi- 
sierne information stockee est la chaine TVA 
xx.xx%\ Les courageux pourront effacer ces 
rides. Enfin, une chaTne de 8 caracteres 
informe de la date de mise en vigueur du 
tarif (c'est bien utile pour moucher un grin- 
cheux qui clame devant quinze personnes 
que vos tarifs ont encore ete augmentes 
pour I'arrivee des touristes...)- 

Viennent ensuite les fiches articles conte- 
nant ici encore 5 rubriques separees par des 
virgules. II s'ogit : 

1 . De la designation de I'article ; 

2, De son prix H.T. en centimes ; 

3- Du prix T.T.C, en francs (c'est h6t6ro- 
gene, mais ?a permet de gagner quel- 
ques octets) ; 

4. La hauteur en cm ; 

5. Le diametre en cm. {$vtte page 3sj 
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Maintenont que vous avez fes fichiers de don- 
nees, vous pouvez empfoyer FACTARIF, com- 
pose en fait dun programme BASIC auquel est 
accrochee une routine en langage machine 
permettant d'acceder aisement b un article 
sans devoir memoriser son numero d'identifi- 
cation. On utilise egalement la commande 
externe ProDOS r FLOAD\ pubtiee dons 7rem~ 
plin Micro n°2Q> 

Deux fonctions principles sont otfertes d'entree : 

• Etablissement d'une FACTURE ; 

* Impression d'un TARIF. 

L'option TARIF n'appelle pas de commentaire 
partrculier, mais FACTURE est plus complexe, 
Dans un premier temps, vous devrez saisir les 
quantites d'articles vendus, chacun etant 
accessible par son numero d'ordre, formule 
simple, mais peu agreable, ll est heureuse- 
ment passible de donner tout ou partie de la 
designation de I'artide en question. La routine 
en langage machine, precedemment citw, 
vous proposera successivement tous les arti* 
cles contenant cette sous-chalne, II vous res- 
tera 6 valider en tapant O. Si vous depassez 
d'un rang I'artide choisi, inutile de refaire un 
balayage complete tapez fl&che rnontonte (ou 
fleche b gauche) qui permettra de recuperer 
l*a vant-derniere proposition, Camrne j'aime le 
con fort, DEJ vous donnera acces 6 Dmjeuner 
carrels (ou dec ore), 

En cas d'erreur sur une quantity il est possible 
de la modifier en en saisissont une comply 
mentaire qui peut etre negative, II arrive par- 
fois que ma femme vienne me signaler qg'un 
client ayant demands une facture a modif ie sa 
selection d'articles pendant que je commensals 
6 saisir ce qu'il ovait choisi. On peut aussi sai- 
sir fusqu'a cinq articles hors catalogue (c'est 
indispensable quand, com me mot, on vend fr£- 
quemment des pieces uniques). 

Une fois toutes les ventes en registries, tapez 
RETURN pour passer aux operations comple- 
mentaires : saisie des eventuels frais de port, 
avoir, acorn pte... 

ll ne restera plus alors qu'd enregistrer I'iden- 
tit£ du client, soit par selection dans la liste en 
m6moire P pour un client connu, soit por saisie 
ou vol pour un client occasionnel. 

Toutes les operations d'impression sont codees 

— / 



pour IMAGEWRITER2. II est facile de passer en 
version compatible DMP ou IMWI puisque la 
seule commande sp^cifique IMW2 est I'envoi 
de la sequence ESC "M" qui force le mode 
Quasi-Courrier. 

^utilisation de la commande externe FLOAD 
(TM. 20) permet de realiser un en-tete a 
Taide de caracteres personnalises. Dans fa 
version publiee, trois fontes sont utilisees : 

• COUNT qui figurait deja sur la disquette 
TM. 20 ; 

• CAR AC. DOUBLE ~1 

• CARACINC J la disquette 7 

Vous avez bien entendu toute liberte pour 
adopter 1'en-tefe a vos propres besoins. Je 
signale a ceux qui ne I'auraient pas remarque 
que les fontes COUNT, EPSDROITE et ITALEPS 
de TM* 20 contiennent le nouveau caractere 
Franc en remplacement du £, 

Pour tout simplifies le programme est charge en 
deux temps. Le STARTUP utilise PRO.FP pour 
remettre le systeme en configuration normale, 
puis installe FLOAD et copie les fontes dans le 
disque virtuel de to carte 80 colonnes etendue 
(on pourrait se servjr de /RAM5 sur GS ou 
/RAM4 sur lie etendu), Enfin, il lance I'execution 
de FACTARIF !ui~m§me> Si vous ne dispose? pas 
de disque virtuel , il est possible de s'en passer 
en chargeant les fontes depuis le disque magne- 
tique ; c'est simplement plus lent. 

En examinant le lisfage du programme, vous 
remarquerez sans doute qu'aucune instruction 
ne charge la routine CONT2 precedemment 
cit£e. C'est normal, elle est accrochee a la fin du 
programme BASIC et initiollsee par la ligne 8. 

Si I'association BASIC — Langage Machine ne 
vous est pas familiere, je vous explique rapide- 
ment la morche a suivre : 

1 . Saisir, puis sauver SANS I'ex^cuter, fe pro- 
gramme BASIC sous le litre BAS.SEUL. 
Attention, le programme comporte de nom- 
breuses lignes tres longues, Elles peuvent 
toutes etre saisies en utilisant le symbole ? 
en remplacement des multiples PRINT et en 
s'abstenant de taper les espaces ajoutes 
par la fonction LIST de I 'APPLESOFT lors des 
I i stages. Un editeur de BASIC se revele une 
fois encore un accessoire utile, ProCMD, 
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tou jours (ui, contient, entre autres gate- 
ries, un editeur de lignes et un RENUM- 
BER, performanfs et fiables. 

2* Saisir el sauver la routine CONT2 (avec 
MERLIN ou tout autre assembleur si vous 
etes outi 1 1 6). 

3. Pour faire du travail 'propre', mettre 6 8 
une zone importante de fo m^moire, 
(disons de $2000 a $31300} a I'aide de fa 
commande moniteur : 

2000:00 N 2001 < 2000.2FFFM (pour les 
GSmen 00 < 2000.3000Z) 

Charger BA3.SEUL, passer en moniteur et 
faire AF.B0 (RETURN) ; I'odresse de fin du 
Basic s'affiche afors (octet bas d'abord)* 
Ce devrait etre $28BD si aucune modifica- 
tion n'a ete apport^e au programme, 
rnais comme fe ne saurais vous reprocher 
de ne pas avoir tape les REMarques, je 
pr^fare representer symbol tquement 
cette adresse par $wxyz, Retour au mode 
Basic. BLOAD CONT2,A$wxyz. Retour en 
moniteur et faire wxyz LLLLLLLLLL 
(RETURN) {List Iflfois). 



Les deux dernieres instructions lis tees 
seront alars JAAP $DA63, JMP $DEC9. Si 
c'est bien le cas, (aire encore un L 
(RETURN). La premiere ligne de I'ecran 
portera stuv- 00 00, 

II faudro alors faire AF: uv st (RETURN) et 
ENFFN retourner en BASIC et faire SAVE 
FACTARIF. 

Ouf ! Cest plus difficile 6 d^crire qu P a exe- 
cuter et, si vous le demandez fermement 
mais poliment, je vous offrirai peut-etre un 
jour une commande ProDOS qui realise ce 
type d'accouplernent automatiquement. 

Je profite de (occasion pour signaler que, 
depuis des mois, RELOPRCS contienf une 
erreur que je viens de reperer, Dans la rou- 
tine PROTECT, )a ligne 313 a ete amputee (5a 
va vite avec un editeur plein ecran) et doit se 
lire : 

313 ADC R_OFFSET + l 

L'absence du ( + 1) final est responsable de 
I'apparition desagr^able d'un 'NO BUFFERS 
AVAILABLE' du meilleur effet. 
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10 D* = CHR* <4) 9 REM * lM ************* B3A4 

20 PRINT D*"-PRD.FP■ 3 reM ******* 9248 

30 PRINT Dt'-FLOAD" 8DF9 
40 PRINT W BLOAD COUNT ,A*4000 " : PRINT D*"BSAVE /RAM/COUNT , A* 40 DO f L955" 
50 PRINT D*" BLOAD CARAC . INC ,A*4000 " ! PRINT WBSAVE /RAM/CARAC . INC ,A440 

0D f L955" 96E0 
40 PRINT D** BLOAD CARAC . DOUBLE ,A*4000" ! PRINT D*"BSAUE /RAM/CARAC . D0UBL 

E,A*4000,L9l9" <*********** 48A2 

70 PRINT W -FACTARIF" 1 REM - TA RlF * 2BD3 

I ™ u— — 

6 TEXT : PRINT CHR$ (21) sD* = CHR* <4):6* = CHR* (7)sR* = CHR* (13 

>:K'A = - 16368 QE41 
8 CALL PEEK <175> + 256 * PEEK (176) - 416 

10 HOME :AZX = 48tCE = 100 :ZE = .OlsSE* = " ' :K = 27:E* = CHR* 

(DO:W0* = CHR* <EX> + "0":F1* = "TARI F" i A9M = 57:APX = 46:AL>% = 44 
: DEF FN A(R> = INT <R + .5) / CE 

11 SLOT = I : REM "Port Imprimante 

12 PRINT DV0PENTI4: PRINT D*"READ"FIS : INPUT 21 ,AA,N* ,DV* :AB = CE * A 
A / (AA + CE) : PRINT D*:Z=2#Zl:Z5=2+5: PRINT "TARIF en v \ gu 
eur au "DV* s PRINT : HTAB 7s PRINT Z" articles repertories"! DIM P(Z 
5,1) ,N0*CZ5> ,T(Z5,1) t QJi(Z5) 
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13 NO*(D) = LEFT* (N*,4> + + MID* (N*,8>: PRINT D* 1 READ 1 FI* : FO 
R N = 1 TO Z : INPUT NG*<N) t T0 ,P(N , 1 ) ,T(N ,0 ) ,T(N , 1 ) i P<N , D> = TO / C 
E : NEXT : PRINT D*:T0 = 0:CL* = " CLIENTS* : PRINT D**OPEN N CL*: PR1N 
T D*" READ'CL* : INPUT CNi PRINT D* 

17 JJV. = CN / 10 s DIM RX<CN) ,AD*<CN t 3) : PRINT D*"REAO' CL* : FOR I = 1 
TO CN: INPUT AD*( I ,0) ,AD*< I , 1 ) ,AD*< I , 2> ,AD*( I ,3) , RX( I ) : NEXT ! PRI 
NT D*" CLOSE" 

20 VTAB 5: CALL - 958 ; GOSUB 770: IF NOT SI THEN HOME : END 
30 IF Si = 1 THEN GOSUB 130:DF* = RE*:MFX = MX: GOSUB 440 
40 HOME : GOSUB B30 : ON PR* ~ "N" GOTO 20: GOSUB 1200: GOSUB 3000: ON 
SI GOSUB 350,700: GOSUB 3230: HOME ; UTAB 22: FLASH : PRINT "ENCOR 
E UNE ": GOSUB 830: HOME : ON PR* = "0" GOTO 40: GOSUB 900: FDR 1 
= 1 TO Z5:QX(1) = 0: NEXT : GOTO 20 

59 REM c_i J c_t J F RMATT A G E S cj. J 

60 PRINT RIGHT* <• ""' + STR* <W> ,3) ; : RETURN 

70 IF ABS (UI) < 2E THEN Ul = :UI* = " " "OOO": GOTO 80 
72 W* ~ RIGHT* C" " + STR* ( INT C . 1 + CE * W)) ,7) 

80 IF S2 AND RIGHT* (Ul*,2> = "00 1 THEN U* = LEFT* (W*,5) + ' "*i R 
ETURN 

90 W* = LEFT* (W*,5) + + RIGHT* (Ul*,2): RETURN 

100 IF NOT UI THEN U* = ".. ": RETURN 

110 IF UI = INT (U) THEN W* = RIGHT* (" ' + STR* (Ul),2> + " "* l RETU 

RN 52E5 

120 UJ* = RIGHT* (" + STR* <UI * 10),3>:UI* = LEFT* (Ul*,2) + V + 
MID* (W*,3>: RETURN 

129 REM "ctJctJMASQUE DE SAlSIEctJ 

130 HX - 7:VX = 4:TX - 2:LX ■ B: VTAB VX: PRINT "Date "iJJ MM AN" 
135 PX = 

140 CHS = ":" :RE* = "": YTAB VX: HTAB HX: PRINT ":"; 

150 POKE KX,0: GET X*:XX = ASC (X*): IF XX = 13 THEN CALL - 868: PR 

INT X*j ON CH* ■ ":" GOTO 210: GOTO 200 
155 IF XX = EX AND CH* = ■ :" THEN PRINT : RETURN 

140 ON XX < > 8 GOTO 180: ON CH* < > ":" GOTO 170: ON TX < 4 GOTO 15 

0: POP : GOTO 570 
145 IF RIGHT* (CH*,1) = "." THEN PX = 

170 CH* = LEFT* (CH*, LEN (CH*> - 1): PRINT X*"."X*;: GOTO 150 

180 ON TX GOSUB 230,260,220,1000,225,220: ON OX GOTO 1 50 : CH* = CH* + X 

*j PRINT X*;: ON LEN (CH*) < LX ♦ 1 GOTO 150: PRINT R* 
200 RE* = MID* (CH*,2) 
210 RETURN 

219 REM "ctJciJNB ARTICLESctJ 

220 OX - XX < > 45 AND (XX < AZX OR XX > A9X> : RETURN 

224 REM ctJ 

225 OX = XX < > 63 AND XX < > 44 AND (XX < AZX OR XX > A9X> : RETURN 

229 REM clJctJSOMMEctJ 

230 OX = 1:PQX = XX = APX OR XX = AVX: IF (PX AND PQX) OR XX > A9X OR 
POX < 1 AND XX < AZX THEN RETURN 

240 IF PQX THEN X* = H .":PX - 1 
250 OX = : RETURN 
259 REM ciJctJDATEctJ 

240 HX = 1: IF XX ' AZX OR XX > A9X THEN RETURN 

270 IF LEN (CH*) = 2 THEN JX = UAL ( MID* (CH* + X*,2)): IF JX < 1 

R JX > 31 THEN RETURN E694 

280 IF LEN (CH*> = 5 THEN MX = VAL ( MID* ( CH* + X* ,5) ) t IF MX < 1 
R MX > 12 THEN RETURN 
— / PACM40 / ^ — ^ ^ — -^^—^^^ 
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290 IF LEN (CH$) = 8 THEN A* = WL C MID* CCH* + X*,8));AX = 1900 + 

M + CE « <WJ < 50)! GOSUB 330t IF JX > FX THEN POP : GOTO 140 
300 IF LEN CCH*) = 5 OR LEN CCH*> = 2 THEN X* = X* + 11 " 
310 QX = 0: RETURN 

319 REM "ctJcJJDERNIER JOUR DU M0 1 Set J 

320 MX = MP/ ♦ (CR = 5) * (1 - (MFX = 12) * 12) 5D2B 
330 FX = 31 - (MX - 4 OR. MX = 6 OR MM = 9 OR MX = 11): IF MX - 2 THEN 

EX = 2B:T1 = PC/, / 4:T1 = Tl - INT (Tl ) :T2 = AX / CE:T2 = T2 - IN 
T (T2):T3 = AX / 400 :T3 = T3 - INT CT3) : IF Tl t T2 + T3 = OR T 
1 = AND T2 THEN FA = 29 
340 RETURN 

349 REM "ctJctJ IMPRESSION FACTUREctJ 

350 LT = 5: FOR N = 1 TO Z5:LT - LT + NOT NOT QXCN): NEXT :LT = LT + 
3 * NOT NOT R + 2 * NOT NOT <E AND AW) + NOT NOT E + NOT N 
OT AU + 2 * NOT S2 + NOT NDT AK + 2 * AS 

351 MG = 11 7AC6 
354 PRINT TAB( 91 ) "VALLAURI S le " DF* ; ; IF LT < 40 THEN PRINT WO* ; 

356 PRINT : PRINT : PRINT : PRINT SPCC MG)CL*: FOR ] = 1 TD 5i PRINT 
! NEXT :TQ = 0: PRINT SPCC MG)"Code 'Quantity " " Des i onat i on" SPC 
< 36)"Prix"B* SPC< 13) "Prix Total": PRINT 

357 FOR N - 1 TD 25: ON NOT QXfN) GOTO 370 

360 PRINT SPC< MG); IF N > Z THEN PRINT SPCC 3): GOTO 365 
362 U = N: GOSUB 60 

365 PRINT SPCC 6) :U = QXCN): GOSUB 60: PRINT SPCC 6)NO*(N) SPCC 48 - 
LEN <NQ*CN))):W = PCN,S2): GOSUB 70: PRINT U* SPC< 14) :U = QX<N) * 
P(N,S2): GOSUB 70 J PRINT U*:T0 = TO + W B4B0 

370 NEXT : IF R THEN PRINT SPCC 88 + MG)SE*!lJ = TO: GOSUB 70; PRINT 
SPCC 43 + MG)AV* SPCC 42)UJ*ild - FN ACTO * R) i GOSUB 70: PRINT SP 
CC 48 + MG) "Remise "R" y SPCC 31 - LEN ( STR* <R)))W*:T0 = TO - 
U 

380 ON NOT E AND NOT AO GOTO 410 J PRINT SPCC 88 + MG>SE*:W = TO : GO 
SUB 70: PRINT SPCC 43 + MG) "Marchand r ses "AV* SPCC 29)W*: IF E TH 
EN W = E: GOSUB 70 : PRINT SPC< 43 4 MGV'Port "AV* SPCC 37)W*{T0 = 
TO + E BA71 

400 IF AY THEN Ul = AV: GOSUB 72: PRINT SPCC 43 + MG) "Avoir "AV*" du " 
DA* SPCC 24)W*;T0 = TO + AV 

410 PRINT SPCC 88 + MG)SE*:UI = TO: GOSUB 70: PRINT SPCC 43 + MGV'Tot 
al "AV* SPC< 36)W*: IF NOT S2 THEN W = FN ACAA * T0):TO = TO + U) 
: GOSUB 70; PRINT SPCC 48 + MG)NO*(0) SPCC 30)Ui*: PRINT SPCC 88 
+ MG)SE*:U = TO: GOSUB 70 r PRINT SPCC 43 4 MG) "Net TTC" SPCC 38 )W 
* 493A 

420 IF S2 THEN U = FN ACAB * TO); GOSUB 70: PRINT SPCC 48 + MG)"dont 
■NO*<0) SPCC 3)U* 

424 ON NOT AK GOTO 434: PRINT SPCC 17 4 MG)"Acompte de " ; :W = AK : IF 

U - INT <UI) THEN GOSUB 70: GOTO 428 
426 W* = " " + STR* C INT <U)) 

428 PRINT U*" frs. Rests a payer" - t tU = TO - AK; IF W - INT (U) THEN 

G0SU8 70: GOTO 432 
430 W* = " " + STR* ( INT (10)) 
432 PRINT W* u frs." 

434 PRINT : IF AS THEN PRINT SPCC MG) "Te 1 ephoner en cas d'avarie pog 
r communication du numero de la police d' assurance ." : PRINT 

435 PRINT SPCC MG) "Adherent d'un C.G.A. nous acceptons 1 es reglements 

par cheque, ";: IF SI < > 2 THEN PRINT OW* 
438 RETURN 

~— ^ / PAGE Ml / — 
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439 REM "ctJctJSAISIE FACTUREctJ 

440 HOME : HTAB 14: PRINT " FACTURE"8*" du "DF*; VTAB 23: PRINT "si ter 
mine taper ■;: INVERSE : PRINT "RETURN" : NORMAL : POKE 35,20 

450 VX = 14:HX = 14:LX = 2iT/, = 5s VTAB VX: PRINT "Code article :.. 

"( ? pour consulter)": GOSUB 135:N = VAL (RE*): IF RE* = "?" OR R 
E* = "," THEN GOSUB 2000 8DAA 
455 ON NOT N GOTO 490 ! ON N > 25 GOTO 450: ON N > Z AND NOT QX(N) GO 

SUB 660 FS « 7 
460 PX = liWA = 1B:HX = 10:LX = 4:17'. = 3: VTAB VX - 2: CALL - 868: PR 
INT NO*(N): VTAB W.l PRINT "Quantity :....": GOSUB 140: ON XX = EX 
GOTO 450:QX = WL <RE*):GX<N) = QX(N) + OX 2B09 
470 VTA 8 5j CALL - 868; PRINT "ajout "jj INVERSE ; PRINT "ARTICLE "N" 
" J : NORMAL ?KQ - QV. * P<N.S2): PRINT " "QX" x "P<N,S2)" = "KQ:T0 
- TO + KQ: VTAB 7: CALL - 868s PRINT "eurmll ;"G5i<N) " u NO*(N) 
480 VTAB 9 s CALL - 868: HTAB 15: PRINT "total parti el = "TO: CALL - 

958: GOTO 450 A9E7 
48? REM "cJJctJEXPEDITION Etc.cJJ 
490 TEXT ! UTAB 2\ CALL - 959 

500 TX = 1 :VX ■ 3:HK = 16:LX = 6: VTAB VX: PRINT "Expedition "AW :.. 

■ r GOSUB i 35 : E = UAL < RES) 

510 VX = 5:HX = 16;LX = 2 ■ VTAB W.1 PRINT " 'Remise en X t . .* i G0SU8 
135: ON XX = EX GOTO 500 :R - VAL (RE*) 

520 TX = 1:VX = 7:LX= ?:RX =11: VTAB V/: PRINT "Avoir "AV*" : 

": GOSUB 135: ON XX = EX GOTO 510:AV = - VAL (RE*): IF NOT AV T 
HEN 530 D4F0 

525 TX = 2:HX = 27:LX = 8: VTAB VX: HTAB 22: PRINT "Date : ": G 

OSUB 135: ON XX = EX GOTO 520: DA* = RE* 5E75 
530 TX - 1:VX = 9:HX ■ 16:LX - 7: VTAB VX : PRINT SPC( 6)"Acompte 

"i GOSUB 135; IF XX = EX THEN ON NOT AV GOTO 520: GOTO 525 

535 IF E THEN VTA 8 11: HTAB 5: PRINT "Assurance";: GOSUB 840:AS = PR* 

= "O" B624 

539 REM c_tJctJCDNDITIONSciJ 

540 AK = VAL (RE*) : VTAS 16: PRINT "1 :"san5 condition": PRINT "2 :> 
egle ce jour": PRINT "3 : a reception": PRINT "4 : "reglement fin d 
e raois": PRINT "5 : '30 jours f i n de moi&": PRINT : INVERSE : PRINT 
"VOTRE CHOIX":: NORMAL ; PRINT " ' < >* ; : HTAB 15 

550 POKE 104,0! GET PR*:CR = VAL (PR*): ON CR < 1 OR CR > 5 GOTO 550: 
PRINT CR: ON CR GOSUB 620.630,640.650,650: VTAB 16: CALL - 958: H 
TAB (41 - LEN (DUI4)) / 2: PRINT DW* 5FE6 

559 REM "ctJctJSELECTION CLIENTctJ 

560 VX = 21: UTAB VX: HTAB 10: PRINT "nouveau client";: GOSUB 835: IF 
PR* = -O' THEN CX = 0:TX = 4:HX = 15:LX = 80: VTAB VX: CALL - 958 
: PRINT "Noni & adresse :...'■;: GOSUB 140:CL* = RE*: GOSUB 615: RET 
URN CD8A 

570 PX = 1;TX = 6:VX = 23;HX = 33:LX - 2; FOR J = TO JJX: HOME : FOR 

I = 1 TO 10: IF I + J * 10 > CN THEN I ~ 10: J = JJX: GOTO 590 
580 PRINT RIGHT* ("0" + STR* (I + J * 10) + " ",4)AD*(I + J * 10,0) 

: PRINT 9467 
590 NEXT 0582 

600 UTAB VX: PRINT G*"numero client ou RETURN ou (= ":..": GOSUB 140s 
CX = VAL <RE4): ON CX ) CN GOTO 600: IF CX > J * 10 AND CX ( 1 1 + 
J * 10 THEN J = JJX 4C6A 

601 NEXT :CL* = AD*(CX,0) + " . " + AD*(CX,1) ♦ " . ■ ; IF AD*(CX,2) > u " 
THEN CL* = CL* + AD*(CX ( 2) 9254 

602 IF RX(CX) THEN RK = RX(CX) 363E 

— / PACE 42 / — 



■ / rvart kimmic — Applesoft 

611 IF RK THEN R = RK 

412 CL* = CL* + * .» + AD*(CX,3): RETURN 

414 REM "ct JctJOecornppsi t i on adressectJ 

415 LA = I EN (CL*):PT = 0: FOR I = TO 3:AD*(0,I) = "": NEXT : FOR I 
= 1 TO LA:X* = MID* (CL* f I,l); IF X* = '.' THEN PT = PT + (PT < 3 
) :LA ~ LA + 1 + <PT = 1) : GOTO 417 

616 AD*(0,PT> = AD*(Q,PT) + X* 

617 NEXT s RETURN 

61? REM "eJJctJCONDlTIONS DE REGLEMENTctJ 
620 OW* = ■ " s RETURN 
430 DW* = "Regie ce jour'i RETURN 
640 OW* = "R#Q?enient a reception"? RETURN 
650 GOSUB 320 :DW* = "Reglement ay ant le 

CO' + STR$ (MX) ♦ " " ,3) + RIGHT* 

TURN 

65? REM "ctJclJARTICLE N0N REPERTORI Ect J 
440 TX = 4iVV. - 16;HX = 13:LX = 24 1 UTAB W.i PRINT 
GOSUB 140:N0*(N) = RE* :TX = 1 :UX = 18: HX 

i PRINT "Prix : "; GOSUB 3 40 : IF XX = EX 

470 P(N,S2) - VAL (RE*) r RETURN 
4?? REM "chJctJ IMPRESS I ON TARIFctJ 

700 MG = 7: GOSUB 435: PRINT TA*DV* : PRINT :S4 - 2 * S2: PRINT SPC< M 
G)"Code "Designation" SPC( 13)"haut diam" SPC( 3 - S4)"Tari-f" SPC 
< 7 + S4)"Code "Designation" SPC( 12)"haut "diam" SPC( 3 - S4>"Tar 
r-f" : PRINT W0* 

710 FDR N = 1 TO Zl: PRINT SPC( MG) :W = N: GOSUB 60: PRINT SPC( 2)N0 
*(N) SPC( 25 - LEN <NO*(N>));W = T(N,0)i GOSUB 100: PRINT Ul* SPC( 
GOSUB 100: PRINT W* ; :W = P(N,S2): GOSUB 70: PRINT Ul 



+ STR* (PX) 
C STR* ( (MX = 



+ 1 

1 > 



* + RIGHT* 

AX),2>: RE 



" Des i gnat i or 
= 6jLX = 7: 
THEN 660 



UTAB VX 



720 



730 
76? 
770 

7B0 

7?0 

800 



= WX: GOSUB 
NO*(WX) SPC-: 
SPC( 2) :W = 
PRINT Ul*: 
: RETURN 



2) :W = T(N , 1 ) 

* SPC( 7) 

WX = N + Zl :W = WX: GOSUB 40: PRINT 
2 THEN PRINT N0*(WX) SPC( 24 - LEN 
100: PRINT W* 
2); GOSUB 70: 
PRINT : NEXT 
REM ctJct JMENUSciJ 

VTAS 6: PRINT "0 : "Term i ne" : PRINT : PR] NT "1 
PRINT "2 s Tari-f": PRINT : PRINT "uotre choix 
POKE KX,0: GET PR* : ON PR* < "O* 
SI = WL <PR*): IF NOT 51 THEN 
PRINT : PRINT "1 :"H.T." : PRINT 
T "votre choix < >"?: HTAB 15 
PDKE KX,0: GET PR*:S2 = UAL (PR*) - 1 : ON S2 
00: PRINT PR*:B* = " H.T.":AV* » "HT " I IF 82 

* = "TTC" 



SPC( 2) : IF WX < 83 OR NOT S 
(N0*(UX))):W = T<WX,0): GOSUB 
TCWX.l): GOSUB 100: PRINT W*jiW = P(WX,S 



OR PR* > ■ 

RETURN 
: PRINT "2 



:Facture": PRINT : 
"< >":: HTAB 15 
GOTO 780: PRINT PR*: 



■T.T.C.'t PRINT 



PRIN 



< OR S2 
THEN B* = 



1 GOTO B 
TTC ":AU 



BID 
820 
830 
835 
840 
845 

850 
8?? 
?00 



au 



HOME : RETURN 



FLASH : PRINT " IMPRESSION 



TA* - "Tar if" + " " + AU* 
REM cUctJIMPRESSIONTctJ 
TO = 0: VTAB 22: HTAB 12: 
PRINT G*i 

NORMAL : PRINT " "<0/N>" CHR* 
POKE KX,0: GET PR*: IF PR* < 
O 845 

PRINT PR*" > "■ : RETURN 

REM "ctJctJ IMPRESS I ON ENVELOPPEctJ 

UTAB 22: HTAB 12: FLASH : PRINT G*' ENUELQPPE" ; 

= "N« THEN RETURN 



(B> CHR* (8) CHR* (B) 
N" OR PR* > "0" THEN 



CHR* (8)j 
PRINT G*; 



GOT 



GOSUB 835: IF PR* 



/-l 

C4CD 
80 E 4 



45FC 
A508 
4E40 

45BE 
33A1 
?4F8 



4D0E 



1C7? 
844C 



9ABE 



D423 



77E1 
0F61 



0205 
904? 
5D84 



27E6 
1A?0 

AB8C 
B360 
?F5<i 

CDF3 
EA2D 



ADAC 

/ MCE 45 / — 



/ FACTORIF / 



910 Q0SU6 1 200 f GOBUB 3250 : GOSUB 3220 s FOR I = 1 TO 8; PRINT W0*i NEX 
T ! FOR I = TO 3s IF AD*CCX,D > THEN PRINT SPCC 70)AD*(CX f 
I) BAA2 
920 NEXT i GOSU8 3230 i HOME : RETURN E3F0 
999 REM "ciJct J ENTREE DES TEXTESctJ 
1000 QK = XX ( 32: IF NOT GX THEN X* = CHR* (XX) 5DE1 
1010 RETURN 6381 

1199 REM "cJJctJImpr imante prete?ctJ 

1200 VTAB 22s CALL - 958: INVERSE i PRINT "RETURN" }! NuRMAL : PRINT " 
"si 1 ' irnpr i man te est pr&te "; 

1210 PRINT G*;: POKE KX,Q; GET PR*; ON PR* C > R$ GOTO 1210: PRINT ; R 

ETURN B2F3 

1999 REM "cJJc_tJReeherche par norn articlecJJ 

2000 POKE 34, VX + 1: POKE 35,21 DBAA 
2010 VTAB VX + 2: CALL - 958 E44C 
2020 VTAB VX + 2: INPUT "CI* article ~:";AR*: CALL - 958:N = LEN CAR* 

) : ON ( NOT N) OR N > 10 GOTO 2020 E639 
2030 & CONT NOS(O) ,AR*,Z5,N : IF N > 25 THEN 2020 

2040 VTAB VX + 2s CALL - 958i TEXT : VTAB VXi HTA8 HX + 1 s PRINT Ni RE 

TURN A5C<? 

2999 REM "ct JcU Impress i on en-tetectJ 

3000 G03UB 3259: DOSUB 3230 2C2C 
3010 FO* - "CARAC. INC" : GOSUB 3240 

3020 PRINT E*"M" SPCC 20>E*" f n E*"X"E*"' " ; SPCC 10>"GUY " HACHETTE " j SPC( 
10)E*"*"E*"Y" 

3030 G0SU8 3230 5B78 
3040 FO* - " CARAC. DOUBLE ■ : GOSUB 3240 A0C3 
3050 PRINT E**>"E*"TI(S"E*"M" ; 7242 
3060 MG = 15 82CA 
307D PRINT E*" S'EI'r'E*"" ; SPC( MG) " tremp I i n m i cro" iE*"* n ; SPCC 5>E*"N 

";"La Petite Motte" 475E 
3080 PRINT E* n !"E*"n u E*" J " ; SPC( MG) "TREMPL1N MI CRO" ; E*"* u ; SPCC 5)E*"N 

";" Sen iHe" 8B7F 

3090 GOSUB 3230 5B78 
3100 FO* - "CARAC. INC"! GOSUB 3240 
3110 REM 

3120 PRINT SPCC 20 ) E* " ! " E*"X"E*" ; SPCC 9) "EDITIONS JIBENA"; SPCC 9); 

E*"*"E*"Y"5 SPCC ID" CHATELLERAULT" j 09BF 
3130 PRINT : PRINT 15AE 
3140 GOSUB 3230 5B78 
3150 FO* = "COUNT": GOSUB 3240 6F09 
3160 PRINT E*" ! "E*"Q"E*" C"E*"A"E*" ' " ; 1B6C 
3170 PRINT SPCC 6) " 1 Ag . du ABCDE" SPCC 94)"Fghi JKLMNO" 6906 
3180 PRINT SPCC 4) "23456 PQRSTUVUX" SPCC 85)"R.M. YZ££ 12345 67 89" 8726 
3190 PRINT SPCC 6)"Tel. 78 90-12-34" SPCC 82)"S]RET 123 456 789 01234" 
3200 PRINT E*"*"E*"M' , E* CHR* C34) 738D 
3210 REM "c t Jc t JCommandes Ircpr imantec t J 
3220 PRINT CHR* CEX)"q": RETURN : REM M5 car/pouce 

3230 PRINT E*"c": PRINT D*"PR£Q": RETURN 012A 
3240 PRINT DVFLOAD /RAM/"F0*" ,A"SLQT : REM "Charge Fonte FO* 

3250 PRINT 0*"PR£"SL0Tr PRINT CHR* C 9 ) " 250N H ; : RETURN 0721 



10000 REM "cUctJLe 22/05/85 puis mod if nu1 1 i pies. . .cJJ 
10005 REM "module C0NT2 accroche au BASICctJ 

10010 REM "Dans cette implantation CONT 2 ne supporte pas 80 cols 
— / race 44 / ^ 



PP0.FP,Ai9399,L*99AE 



8396: 28 F8 BE A9 9E 8D 87 8E A9 BE 8D 08 BE A? 93 80 F6 

(328: 8E 88 «8 BA A2 12 90 58 BF CA D8 FA A9 3F BE) 48 BF 

9348: 80 21 BE A9 IB 80 2B BE A? 89 BD 12 BE 80 16 BE 8D 

8349: 80 17 BE 8D 27 BE A9 95 28 ED FD 28 84 FE 28 2F FB 

8388: 8D F4 83 AD B3 FB 38 BE AO C8 F8 F8 99 C9 £9 D9 85 

83AB: 95 98 F5 6fl 78 2B 99 BF 41 AC 83 69 81 91 



83 A9 BE 8D F7 93 A9 98 85 48 A2 91 84 67 CA AH I 
A9 CF 80 58 BF A9 F8 BD 19 BE A? FD 8D 11 BE EBCP 
22 BE 80 26 BE A9 CI 8D 13 BE BD 23 BE A9 C3 3B82 
29 58 FC A9 88 BD F2 83 A9 BE BD F3 83 49 AS »47F 
28 If FE 98 8D A2 81 BE AO 83 28 A4 83 E8 E8 8144 

8293 



CINT2,Ai8ai8 l L$81A8 

8889 : 29 58 FF BA BD FF 99 IB 69 19 
8828: Bl 88 68 C9 BB 08 73 28 E3 DF 
8949: 98 88 18 Ffl C8 84 3E 84 3F 84 
8848: 84 C9 70 D8 82 A9 45 C9 7C 08 
8888; 58 D8 19 E4 51 08 15 28 8E FO 
B8A6: E3 DF 85 B5 84 86 28 6A DD A8 
39C8: 41 SB Bl 5E C9 5C 98 IB 08 92 
89E9: 38 E? 29 00 FF 91 FB 9F BO FF 
8198; 82 E4 3F A5 58 C5 3E 08 84 A5 
8128: F9 6F A9 99 Bl 3C AA Bl 5E 89 
8149 : 2f 29 EO FD A9 CE 29 ED FD 28 
8148: D8 FA 28 9C FE 28 BE FD 48 C9 
8188: 29 DF C9 CF FB BB A2 83 B5 3C 



80 F6 83 BD 88 81 69 88 80 F7 93 A9 
85 3C 84 30 28 6C DD 28 BE DE 28 E3 
01 A3 F9 39 88 Bl 41 C9 5C 99 IB D9 
92 A9 75 38 E9 28 99 88 82 98 08 D8 
A2 FA BD 14 02 89 88 28 ED FO E8 08 
89 Bl 3C C5 48 98 4C 85 41 CO Bl 3C 
A9 43 C9 66 98 13 C9 7B F8 84 C9 70 

81 C9 3D F8 BB C6 41 08 CA F9 88 08 
51 C5 3F FB 11 18 A3 3C 69 83 85 3C 
88 28 ED FD C8 CA D8 F5 A9 A8 29 ED 
84 FE 2C IB C8 AD 99 C8 18 FB 8D 19 
B8 FB 94 C9 BB 08 BF A5 Dl FB 38 A2 
95 08 CA 18 F9 08 8B A4 3E A5 3F 28 



4C 80 F5 93 69 29 


B7 


99 


48 


28 


C404 


DF 29 4C DD A9 92 


Bl 


83 


99 


48 


C743 


62 A9 43 C9 69 98 


13 


C9 


7B 


F8 


F928 


29 BE DE 29 47 DD 


26 


52 


E7 


E4 


D6DA 


F5 4C 2A D4 09 59 


28 


BE 


DE 


28 


ECD9 


85 5E C8 Bl 3C 85 


5F 


A6 


49 


A4 


F32C 


DB 82 A9 45 C9 7C 


09 


92 


A9 


75 


82E5 


27 CA F8 28 98 08 


C4 


E6 


3E 


D8 


234A 


98 91 E4 3D D8 80 


08 


DF 


08 


7D 


3WB3 


FO 28 BB FE A9 CF 


28 


ED 


FD 


A9 


AEA8 


C8 48 A2 84 A9 8B 


29 


ED 


FO 


CA 


1629 


83 B5 D8 95 3C CA 


19 


F9 


D9 


9A 


6E33 


F2 E2 A5 12 4C 63 


DA 


4C 


C9 


OE 


B3B1 



FL0AD,A»6888,L«247 



66C9: 
4BE9: 
6199: 
4129; 
6149: 
61 48: 
6186: 
41 AS: 
61C8; 
41E8; 
6286: 
6228: 
6248: 
4248: 
6288: 
62A9: 
42CB: 
42E9: 
4388; 
4328: 
6348: 
6368: 
63S8: 
63A8: 
63C8; 



A9 82 28 F5 BE 
03 Ct 09 AB CI 
15 14 88 28 84 
15 14 68 2B 85 
3C 85 94 A9 62 
BE 38 E5 84 B5 
AB 89 A2 82 28 
F9 29 83 AA A8 
61 A2 81 26 C3 
C8 A5 87 Fl 3C 
3C 88 68 81 3C 
8A 29 67 AA A9 
4C IE 62 4C 9E 
BD FF 81 29 DF 
A9 40 BD 58 BE 
38 68 A9 8A BD 
97 F8 81 AA BE 
Dl 29 78 BE 89 
AD CB BE BD D9 
99 A9 CA 29 79 
3D 88 63 IB 69 
28 7E 63 A8 EA 
CB BE A5 99 ED 
63 85 37 68 85 
CI 8E BA 63 AE 
88 89 88 IB 44 
Ef F4 E9 ED Ffl 



98 45 A8 
Afl 09 A7 
15 84 2A 
15 84 2A 
35 3D 85 
82 A5 43 
C3 41 A9 

88 EB 82 
41 98 F4 
98 1A 88 
91 42 28 
68 38 4A 
BE 4C 58 
5D AD 63 
AO 47 42 
B4 BE A9 
8C 63 A4 
13 AD CA 
BE AO C9 
BE 88 Dl 
BA 8D 5E 
B9 A3 42 
C9 BE 98 
34 48 8D 
38 43 Afl 

89 28 8D 
BE 80 



14 89 
CE AB 

15 15 
15 14 
85 A9 
E5 85 
82 D8 

98 85 

99 98 
A5 94 
84 FC 
CA 19 
FF 08 
3B D9 
80 51 
C4 28 
74 BC 
BE D8 
BE 80 
28 67 
63 A5 
28 6F 
E5 A8 
DE BE 
18 4C 



95 48 28 
CC C9 84 
88 » 15 
88 28 35 
83 85 3E 
85 83 At 
16 AB 99 
C8 28 9C 
A5 96 85 
Dl 3C C8 
CA 18 F4 
FC 19 53 
FB AB 88 
OB CA 08 
BE 18 68 
78 BE 88 
CF BE A9 
8C AO C8 
OA BE A4 
63 AD BC 
34 48 A5 
43 C8 D6 
F5 89 AE 
A9 CC 4C 
88 CI 88 



ED FO B3 
15 84 2A 
15 88 2A 
43 AE 88 
A9 63 85 
89 Bl 3C 
Bl 3C 48 
41 38 28 
3E A5 87 
A5 95 Fl 
48 69 A5 
BF 99 58 
B9 AE 63 
F2 BE 53 
AD 56 BE 
4B AD BB 
C8 29 79 
BE C9 CA 
4E A5 40 
63 89 CB 
37 4B AD 
F7 A9 88 
62 28 6F 
78 BE 88 
3D 89 32 
88 C6 CC 



18 F7 
85 14 
15 15 
BE BE 
3F A9 
C9 28 
29 93 
C3 41 
85 3F 
3C B8 
95 18 
BF 6B 
29 ED 
bE A9 
4A 98 
BE C9 
BE 38 
AD C9 
Ffl 81 
3D 89 
11 CI 
31 86 
63 C3 
78 84 
33 32 
CF CI 



4C 88 BE 
88 2A 16 
88 2A 15 
85 42 3D 
C4 85 84 
08 17 CB 
A8 6B 4A 
98 BB B8 
28 2C FE 
8E 88 Bl 
65 83 AA 
AA E8 E4 
FD C3 C8 
94 80 52 
9B A5 78 
84 D9 42 
24 AD 08 
BE E9 84 
C8 BC D8 
63 8D BB 
C9 85 08 
28 6F 63 
D8 F7 AD 
88 48 AB 
4E IB W 
C4 A9 Ffl 



8D 37 C5 
15 84 2A 
15 84 2A 
68 BE AE 
A9 43 85 
31 3C 08 
4A AA BD 
12 A9 88 
28 CE 41 
3C 65 82 

18 69 82 
43 98 E2 

19 98 F5 
BE A9 81 
E5 6E E9 
A2 81 AD 
BE 8D 06 
98 89 A9 
8E 84 87 
43 BD 11 
88 A9 89 
E6 84 D8 
11 CI C? 
BF 29 7E 
88 26 16 
El F4 E3 



C3 CI CC 
15 15 88 
65 15 63 
87 BE BE 
87 08 A9 
12 C8 Bl 
AC 48 88 
B5 3E A9 
48 6C FD 
91 3C C8 
65 43 8A 
68 68 88 
28 B7 88 
8D 54 BE 
89 3B 87 
5? BE 18 
BE 80 DE 
8D 48 28 
A9 88 BD 
43 3D 56 
AC 8C 43 
94 E6 87 
85 D8 85 
63 68 A4 
5A 86 88 
AC AB BC 



D9 AB 
2A 84 
ft 85 
84 42 
88 85 
3C C9 
38 84 
63 65 
86 A5 
Bl 3C 
46 4A 



C5 C4 Afl 
15 84 2A 
15 94 2A 
A9 98 35 
42 BD 87 
BF D9 9B 
4A 4A D9 
3F 29 9C 
96 Dl 3C 
65 83 9] 
4A 4A A8 



FB E9 EA 
A9 84 8D 
A9 8E 2C 

98 AO 58 
8E 8D C7 
47 63 4B 
D7 BE 85 
63 BA 8A 

99 F8 85 
E4 89 A5 
A9 98 80 
68 26 68 
89 5A 86 
AC CI AB 



A2 85 
55 BE 
A9 BB 
BE 29 
8E A9 
38 48 
84 65 
9A 8A 
Afl 9D 
96 CO 
9A CB 
BE 88 
99 88 
F3 EC 



6274 
9E98 
AF13 
7551 
37CC 
9A51 
CE24 
EE61 
8430 
9AB8 
EA58 
7860 
7C1D 
1949 
BC6D 
8425 
FC59 
D715 
57F4 
IF4D 
C327 
482E 
8310 
ABF2 
EC33 
F4F4 



/ PACE AS / — J 



COIWT ,A»4llt , LU3BB 



4989 ! 


1 D 

1 


OI\ 

ZD 


IB 


JO 

47 


29 


AO 

48 


98 


80 


9tf 


05 


aa 

99 






aa 

89 


21 


AO 


aa 
MB 


BB 

99 


in 
6r 




ft ft 

BB 


|| 


ft □ 
BB 


fld 
99 


00 

12 


4n 


flfl 
flfl 


Bo 


fl 7 
fl J 


Bfl 


fl c 

B j 


fl 7 

9o 


7HUJ 


40 


aa 

99 


a a, 


oo 

23 


AO 

48 


i A 

14 






15 




a i 
11 


a i 

91 


aa 

89 


^4 


AO 

43 


i j 
14 


16 


i r 

6F 


/B 


Si 


] 4 


BB 


aa 

II 


ZJ 


JO 

48 


AA 


Oi 

f fl 


1 a 
IB 


ao 

9B 


i A 


iO 
Of 


fl a 
bB 


|| 


t6Lc 


494B 


Oi 
16 


AU 

4d 


Dfl 

o9 


7C 
ft 


JO 

H7 


Do 




ca 

j9 


AO 

4o 


BB 

99 


77 

u 


JD 

4o 


BB 


aa 
99 


B J 


BO 

9o 


B B 

BB 


dd 
II 


fld 

□ 9 


ii 


lo 


do 


II 


ir 
11 


OC 

St 


77 

ff 


AJ 


dd 
II 


BB 


■1 
flfl 


Ll 


dfl 

70 


QdCF 
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jb ia . 


99 


66 


77 


7C 
it 
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BB 

99 


89 


7A 
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JD 

4d 


ao 
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11 


ao 
9o 


i r 
11 


OA 
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BB 
II 


fb 


4e 


Bly 


1 B 
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ft 




4 a 


dfl 
BB 


dd 
II 


ll 


AO 

Ad 


ad 
98 


flfl 
flfl 
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daoa 
49oB 


Bfl 

99 


on 
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f9 


09 


Bfl 

99 
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i □ 
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1 D 

lo 
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1 
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Off 


aa 
99 


7C 


JO 

4o 


JtB 

BB 


11 


ft Q 

8B 


AI 
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fld 
9tf 


ad 

19 


BB 

99 


7F 

cr 


40 


da 
46 


7fl 
fB 


i a 
ll 


BO 

lo 


OJJ£ 


A ft A u 

4 BAB h 


DA 
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B 1 

91 


139 


7fl 

o9 


AQ 


ft 


7C 

/r 


/r 


A 1 


Ai 
4] 


*3Z 

or 


as 
BB 


Bfl 

99 


3 1 
fl] 


jo 


dd 

BB 


bV7 
If 


/r 


7F 


7C 

fr 


tl 


BB 


Bfl 
flfl 


Of 


dp 

^0 


aO 
Of 


71 

f I 


7F 

tr 


C£ 
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If 
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fr 


7C 

fr 
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91 
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1^ 

JJ 


711 
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f r 


dU 

*Q 


/D 


7R 
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re 


JJ 
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ii 


BB 
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do 


dfl 


OF 

Jt 


7F 
t r 


/r 
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4 T 


d'5 
H7 


3X 


A£i 


•j B 


J/ 


70 


n 

Ql 


70 
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1 F 
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117 
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di 
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70 
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Bfl 
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Uo 
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da 
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dd 
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oc 


dd 
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B B 




fix 
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Blen sur que I Applesoft exlste encore... 



• Comment prouver a nos lecteurs que nous nous interessons toujours a I'APPLESOFT ? 
Simplement en les invitant a trouver une autre revue consacrant autant de pages au Basic 
Applesoft eta I 'Apple //... aussi longtemps que TREMPUN MICRO existera, I'Applesoft 
y aura bien entendu droit de cite, mais nous continuerons, parce que c'est aussi notre 
rdle, d'interesser nos lectrices et lecteurs aux autres Jangages et notamment au C , au 
GS Basic... et au plus naturel de tous : le langage machine ! t.m. 

^ ^ / PAGE AIT / 
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VOTRE FICHIER CLIENTS aura cette allure... 

AUDI BERT ! S.A.,li rue Nougsro, ,11111 ANT1BES, B 
BAUDELAIRE, 23 rue des Fleurs, ,12345 DU HAL, 18 
CAL^INO,PUc« voir Ariostt, ,33333 ITALQ,28 
DIOGENE/LAERCE' ,Wie Doctrines et Sentences ,44444 TuWEAU.B 
ESCKYLE ,9 rue des Emenidcs, ,55555 THESES, 1* 
FLAUBERT ,5 rue de U Tenia t ion, ,99888 Saint ANT0INE r 29 
G0BMAU,15 place de la Renaissance. ,77777 ADELAIDE, 31 
MACHETTE ,9 hd. des Bugs, La Petite Faute-Comge , e,8<SlB8 CHA7ELLEflAULT,8 
IDNESCO,212 rue d*s Chaises, ,99999 EUGENE, IB 
JAMES, 49 av. des Deux Visages, ,18181 FRANCIS, 28 
KAFKA, Le Chateau, 24 Place du Proces ,28282 FRANZ, 38 
LUCRECE,24 Place de ta Nature, ,38383 BORGIA, B 
MARGUERITE ,55 rue de Navarre, ,49494 HEPTAMER0N,18 
NIETZSCHE, 14 rue des 1 doles, ,58585 ZARATHQU5TRA f 28 
WIDE, 32 au. des Metworphoses, ,68494 CHAMDNAR0.38 
PLATDN.Preniers Bialogues.Eutyphron ,78787 REPUBLIGUE.B 
QUENEAU F 289 Rut du He*tro, ,88888 ZAZIE,18 
RABELAIS, 35 rut Pantagruel, ,98989 GARGANTUA,28 
SEGALEN,12 rue des tiarnottes.Le Fils du Ciel, 22888 SAINT BRIEUC,38 

structure: NB clients 
N(H,Adrl,Adr2,Code Will* ,Tiu n renise 



Not97 au passage que les prix 
ci-dessous sont reellement 
ceux pratiques par 

wan KGENIC 

Mosaique GERBINO 



4, avenue du Stade 
06220 VALLAURIS 

Le meitleur accueil y attend 
nos lectrices et lecteurs ! 
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t ^s» 



/ Marc FREFOYE — MS-DOS / — 



StNCLUDl 



Ami # sous-programme 



Void un exemple ^utilisation 
de la meta-commande 
$lNCLUDEavec Turbo Basic, 

On a d'abord ecrit la routine 
CADRE. TBS, Celle-ci permet de 
tracer des cadres de diverses 
tailles* 

Lb programme EXCADRE.BAS 
man t re comment passer par 
cette routine qui, grace d 
SiNClUQE, sera incorporee au 
programme principal par le 
compifateur* 



EXCADRE.BAS 



* Turbo Bosk fancttonrte sur PC et 
compatibles, mats aussi sur Apple UG5 
grace au PC Transporter, 



cadrel 



cadre 2 



1 EXEMPLE D' UTILISATION DE "CADRE. TBS" 
1 ************************************ 

els: key off 

h%=5; v%=5: haut%=20: larg%=70: cd%=l 
color 15,0 
gosub execution 



h%=8: v%=8: haut%=14: larg%=50: cd%=0 
color 7,0 
qosub execution 

touche: 

r$=inkey$: if r$= lr " then touche 
els: end 
execution: 

$ INCLUDE "Cadre, tbs" 
return 



CADRE. TBS 



* [CADRE. TBS] trace un cadre single ou double filet, en utilisant les 
1 paramfetres suivants: h% et v% pour point de depart 

* haut% et larg% pour hauteur et largeur 

1 cd%=0 pour cadre sinple et cd%=l pour double 

* color esr transmis & partir du progranme principal 



cdr: 



odrrtsi 



if h%+lazg%>81 or vl+hautl>26 then cdrrts 

cdrl$=Y' : cdr2|="«^: C dr3$= M 1 M : cdr4$= f T T : cdr5$="iy T : cdr6$="=u n 
if od%=6 then cdrl|=" r "; cdr2$= M - ,T : cdr3|= f, 1 ": cdr4$=" | M :_ 
cdr5$=" L ": cdr6$= ,TJt ' 

locate v% # h%: print cdrl$; string$(larg%-2,cdr2$ ) ;cdr3$ 
for i% = vl+1 to v%+hautl-2 

locate i%,h%: print cdr4$;: locate ,h%+larg%-l: print cdr 4$; 

next ii 

locate v%+haut%-l ,h% : print cdr 5$ ; string? { larg%-2 , cdr 2$ ) ; cdr 6$ ; 
locate 1,1 
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YOBBO BASIC Cette seconde demonstration utilise aussi le sous-programme 

ECRAN*TB$ r mats montre egafement comment modifier tes 
ottributs des caracteres-ecran, DEF SEG - $HB000 (ou B800 avec 
un ecran couleur) fixe I'adresse de deport a B000 (premier carac- 
tere de la premiere ligne). Chaque caractere occupe deux 
octets : un pour I'attribut (couleur), I'aufre pour le code ASOL 



ECRNCHNG . BA£ 



1 L 1 ECRAN CHANGEANT (Simple demo) UTILISE ECRAN, TBS 

1 ****:**#*3|c+***^;**s|jJt:j4£*#**^ + *^£**j!:^: 



els: key off 
randomize timer 



ecran: 

for d% = 1 to 10 
h%^l+int(rnd(l)*8) 

v*=l+int(rnd(l)*8) 

hautX=8+int{ rnd( 1 ) *( 18-v%) ) 

larg%=20+int(rnd( 1 )*(61-h%) ) 
color 7,0 

if l+int(rnd(l)*2)=l_ 

then color 15,0 
cd%=int(rnd(l)*2) 

gosub execution 

next d% 

locate 25,30: color 0,7: print " ECHAP pour TERMINER pt ; 
color 7,0: locate 1,1 



def seg=&hb000 :bsave '"ecrndeiDa" ,0,4000 
coll%=15:col2%=7:col3%=112 



change: 



swap col 1%, col 2% 

for i%=l to 4000 step 2 
poke i%,coll% 

next i% 



swap col3%,col2% 
goto change 



if inkey$=chr${27)_ 

then bload "ecmdemo" ,0:_ 
goto termine 



termine: 



r$=inkey$: if 
kill 
els : 



r$= rT " then 
"ecrndemo" 
end 



termine 



execution: 

$ INCLUDE "cadre, tbs" 
return 



BLOAD donncra un retultot 
correct tur un Apple HGS, mail 
po* cur un PC (par contra, I* 
fa nctio nn mwnmnf i&ro correct tl 
Ton m^morliB tur dlvquo dur ou 
disquo virtual). 



Avec un ecran couleur: 
DEF S£B= &HB800 



/ Marc FtttFOYE — MS-DOS / — 



TURBO BAStC 



IMPRESSION 



Encadrez vos Usages 



Si vous desirez presenter agreablement ies fist ages de vos programmes en TURBO BASIC (ceux que 
nous vous pr4$entons ont ete obtenus de cette mantere) t utilisez cette routine qui fonctionne sur 
EPSON LQ 25QQ, rnais peut Stre facilemenf adoptee. Un seuf imperatif : ne pas depasser 80 caracte- 
res par ligne lors de I'ecriture des programmes. Une option permet de memoriser le tistage atnsi 
obtenu en vue d'une eventuelle reimpression. 



IMPRLIST.TBS 



IMPHLIST: Impression 
encadr§e d f un programme 
en TURBO, BASIC 



Le nombre de lignes par page est de 64 
60 de programme + titre et pagination 
Respecter 80 caract^res maxi par LIGNE 



init : 



titre: 



page: 



els: key off: clear 
dm lg$(70) 
longpage%=60 

width N lptl:'\85:Xprint 
ex$= M dir/p 11 



locate 24 f l: input "Titre k 6diter (dir=? ■ n6ant=fui) : ",titre$ 
if titre$= mi then end 
if titre$= ,T ?"then dire 

locate 24,1: print space$(78); 

locate 24,1: input T, M£mc sous le titre suivant (n£ant pour rien): '\tm$ 

ltete$= f Y T +string$((80-len(titre$))/2 ^ "^ 1 )+ T, ,l +titre|+ M " 
ltete$=ltete$+string$(83-len(ltete$ ) , 'W )+ ,, 1 M 
lvid$= " || "+string$ ( 82 , " " ) +" || " 

open "i" f #l,ch$+titre$ 



incr page%:num$-str$(page%) 

If in$= fl ^+string$ ( { 81-len( num$ ) }/2 , >W* )+num$+" " 
lfin$^lfiIl$+strxng$(83-len(lfln$) f l ^ , )+ , ^ T, 

lec: 

if eof{l) then close #1: fin%=l:goto suite 
incr nl%: line input #l f lg$ 
lg$(nl%)=lg$ 

if nl%<longpage% then lec 
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k = TBS ,i 

suite : 

els 

lprint ltete$; 
lprint lvidj ;l$= ,m 

if nl£<longpage% then longpage%=nlt 
for i% = 1 to longpage% 

for j%=I to len(lg$(i%)) 

c$=mid$(lg$(i%),j% r l) 

if c$=chr$(9) then c$= w 
if e$<chr$(32) then c$=™' 

l$=l$+c$ 

next j% 

l%=len(l$}:if 1%<81 then l$=l$+string${81-l% ( " ") 
1$="|'V ,, +left$(l$,81)+"||" 

inpr: 

lprint 1$; :l$(i*)^l$; 1$="" 

next i% 

lprint lvid$; 
lprint lfin$; 

if 1^1$=™' then nonmemo 

open "a M ,#2, tm$ 

print #2, ltete$ : print ti2 f lvid$ 

for i% - 1 to longpage% : print #2 f l$(i%) : next 

print #2, lvid$: print #2, lfin$ 

close #2 
nonmemo: 

nll=0 : Iprmt chr$(12): if fin% o 1 then page 
goto init 

dire: 

els: shell "cd 11 

locate 24,1: input "Chemin 6ventuel: ",ch$ 

if ch$-' tM then affichage 

ex$=ex$+ch$ 

if rightStd^Do'V then ch$=ch$+"\" 

affichage: 

els: shell ex$ 

attente : 

r$=inkey$: if len(r$)=0 then attente 
goto init 

^ 2 ^=^^^^^^=^=^^^^=^= 

ut i LI SE z les d ■ so u E tte s ft/ous m e ttons a vo tre dispos ition un e disquette MS. DOS 

trsmpun miicro con tenant ces routines (voir bulletin de commonde}* 
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Prodos.NDA 



Prados.NDA est I'accessoire de bureau qui vous manquait II vous permettra de : 
renommer, ef facer, copier, estimer la faille, verrou filer et deverrouiiier n'importe 
quel fichier sans quitter vatre application I 



Des que vous avez selection ne I'accessoire par le 
menu Pomme, une fenetre apparaft et vous pro- 
pose six boutons correspondent aux six choix 
possibles. II est a noter que ; 

• L'option EHocer n 'efface pas un fichier verrouille ; 

• L 'option Unlock outorise tous les occes au fichier ; 
» L'option Lock les interdit tous, sogf la lecture ; 

• L'option Copier copie un fichier en le chargeant 
entieremerrt en memo ire mais gonflera un fichier 
□ trous (sparse file) : celui-ci ne sero pas copie a 
I'identique car, sur la copie r les trous seront rem- 
places par des blocs rdellement alloues (ce type 
de fichier est de toutes fa?ons tres rare). 

Cet accessoire de bureau est ecrit en assembleur 
et prindpalement en C (version 1J). Saisissez 
les programmes avec l^diteur du Workshop, 
sans oublier de taper A5M65816 P CC f LINKED 
avant d'entrer les sources respectivement : 
Assembleur, C et Linker. Compilez le tout par : 

- ASSEMBLE PRODA.SRC 

- COMPILE PRODCCC KEEP = PRODC 

- ALINK PROD.MAKE 

- COMPACT PRODOS.NDA 

- FILETYPE PRODOS.NDA NDA 

11 ne vous reste plus qu r 6 copier PRODOS.NDA 
dans le sous-directory SYSTEM/DESK. ACCS de 
('application de votre choix et de la lancer. Pro- 
dos.NDA sera desormais accessible par le menu 
Pomme. 

Motes surte programme : 

Les sous-programmes DAfnit et DAAction ont 
une partie en assembleur dont la fonction est de 
r^cuperer les registres du microprocesseur, 
chose impossible en C . 

Comme Paccessoire est appele par un outif, le 



registre de banc de donnees n p est pos valide, 
Or r on ne peut pas forcer le C 6 utiliser 
I'adressage long pour acceder oux donnees ; il 
faut done fixer correctement ce banc de don- 
nees, ce qui est possible par les instructions 
assembleur PHK et PLB. Cefa ne marche que si 
le programme et les donnees se trouvent dans 
le rneme banc memoire, ce dont on est sur que 
sj le programme n'est constitue que d'un seul 
segment, Si on toissait le Linker travailler tout 
seul, il ferait trois segments : un pour le pro- 
gramme assembleur, un pour le pro- 
gramme et un pour fes constantes C * Le 
fichier PROD. MAKE, appele par ALINK 
PROD,MAKE, permet d'y remedier en forgant 
le linkage dans un seul segment. 

I! est desormais possible de renommer un direc- 
tory au un sous -directory h partir de l'option 
Renommer. 

Pour cela, cliquez dans le bouton Renommer 
puis faites en sorte que le sous-directory a 
renommer opporaisse dans la fenetre de selec- 
tion, mais ne cliquez pas dessus, cliquez dans le 
bouton Annular. Tapez le nom du sous-directory 
6 renommer et son nouveau nom dans les cases 
adequotes puis cliquez dons OK. 

Pour renommer un directory, cliquez directe- 
ment dans te bouton Annuler et tapez le nom du 
directory a renommer, et son nouveau nom en 
les faisant preceder du slash /. 



Precisions dYvan KOENIC : 

Les fonctions de Prodos.NDA ne sont pas admises 
sous le FINDER. C'est normal. Ce qui Test moms, 
e'est que GS.WRfTE emp£ehe Taffichage des bou- 
tons. II est alors necessaire de cliquer en aveugfe, 
mais ta fonctionne. 
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1 * 

2 * "PRODA.SRC" faire 'ASSEMBLE PRODA.SRC 1 

3 * 

4 * ProDOS utilitaires en NDA 

5 * (c) 1987 S. Hadinger £ Tremplin Micro 

e * 

7 absaddr on 

6 65816 on 

9 keep PROD A 

10 case on 
11 

12 IDSection START 

13 dc i4'DA0pen' 

14 dc i4 , DAClose i 

15 dc i4 'DAAction2 r 

16 dc i4" DAInit 2 T 

17 dc I2 I $FFFF' ; pas de raf raichissement 

18 dc 12' $0143' ; Activate, Upaate £ MouseDown events 

19 dc c 1 ProDOS utilitaires \H** 1 ; Tit re de 1 1 accessoire 

20 dc il ' 13' 

21 END 
22 

23 ;Sauve le registre A dans Code 

24 ; et passe le controle a DAInit 

25 DAInit2 START 

26 phb 

27 phk 

28 plb 

2 9 sta Code 

3 jsl DAInit 

31 plb 

32 rtl 

33 END 
34 

35 „■ Sauve les regis t res A, X k Y 

3 6 ; et passe le contr61e a DAAction 
37 DAAction2 START 

SB phb 

39 phk 

40 plb 

41 sta Code 

42 3tx Param 

43 sty Param+2 

4 4 jsl DAAction 
4 5 plb 

46 rtl 

47 END 



1 * rt PROD, MAKE 11 

2 * faire ALINK PROD, MAKE 

3 * 

4 * Prodos utilitaires en NDA 

5 * (o) 1967 S. Hadinger & Tremplin Micro 

6 KEEP PRODOS. NDA 8 LINK/ ALL PRODC 

7 LINK /ALL PRODA 9 LIBRARY * 



- / 
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/* 

* 

*/ 



■PRODC.CC r 



faire 'COMPILE PRODC.CC KEEP=FRODC , 
avec le compilateur C 1,0 



ProDOS 16 utilit aires en NDA 
(c) 1987 S. Hadinger & Tremplin Micro 



8 #include <typea *h> 

9 tinclude <event . h> 

10 # in elude <quickdraw . h> 

11 #include <window.h> 

12 # include <memory.h> 

13 # include <control.h> 

14 #include <dialog.h> 

15 #include <misctool * h> 

16 #include <prodo3»h> 

17 tinclude <3tdfile,h> 

18 #include <intmath.h> 
19 

20 typedef struct SFReply 



/* Interfaces pour les outils 



I 



21 
22 
23 
24 
25 
26 

27 int 
2 8 int 

2 9 Event RecordPtr Pa ram; 



int good; 

int type; 

int auxtype; 

char f ilename [ 16] ; 

char fullname[12 9] 

toolErr; 



/* Utilise par Standard File 



/* Nom du fichier 
} SFReply; /* Nom avec prefixe 

/'* Erreur du dernier appel d'outil 



windQpen, Code, itemHit; /* windOpen : fenetre ouverte ? 



*/ 

*/ 
*/ 



/* Evenement a traiter 



30 ParaitiList 

31 

32 

33 

34 

35 GrafPortPtr 

36 CtlRecHndl 
3"? 

38 
39 



P r odWind= { s i zeo f (ParamList) , OxCOaO, 
"\33ProDOSl6 utilitaires vl.l", 

OL,(0,0,0,0},QL,0,D,0,0,0,0,0,0,0,0,OL,0,OL,QL f OL, 
{27, 30, 74,310), (GrafPortPtr) -1L,0L); 

/* Fenetre du NDA 
WindPtr, NdaDlog; 

RenCtrl, DelCtrl, CopCtrl, PlaCtrl, LocCtri, UnlCtrl; 
/* les 6 Boutons 



*/ 



/* Parametres pour ProDOS et Standard File 



myReply; 
Fread; 

Pinfo, Pcreate 
P ren ; 



{0L, 0xC3, 0, 0L, 1, 0, 0, 0, 0, 0LJ; 



40 SFReply 

41 FilelORec 

42 FileRec 

43 PathNameRec 
44 

45 char Error [] = "30000"; /* Numero de 1 'erreur 

4 6 char BlocJcNum[] * " Ko«"; /* Taille du fichier 

47 /* Rectangles d'affichage 



4 8 Rect 
4 9 Rect 

50 Rect 

51 Rect 

52 Rect 

53 Rect 

54 Rect 

55 Rect 



rCent r 

rLeft 

rLeft2 

r Right 

rRight2 

rDlog 

rDlog2 

rLinel 



(27, 110, 41, 190} 
(27, 30, 41,110 J; 
{41,30,55,1101; 
{27,170, 41,250 ) 
{41,170, 55,250 } 
(80, 10, 128,310 \ 
(80,10, 142,310 } 
{4,90,19,2901; 



/* Bout on central 

/* Bout on gauche 

/* Bout on droit 

/* Dialog standard 

/* Ligne editable 1 



*/ 
*/ 
*/ 
V 

*y 
*/ 
*/ 
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56 Rect rLine2 = [ 2 , 90 , 35, 290 } ; /* Ligne editable 2 */ 

57 Rect rAlert = [ 50, 35, 97, 285 J ; /* Fenetre d'alerte */ 
5S Rect rbOK - t 2B , 85, 42, 165 } ; /* Bouton OK (alerts) */ 
59 

GO static char *ErrM 3 gL] - I /* Messages d'erreurs */ 



SI "ProDOS occup\216" , "Unit\2l6 int rouvable", 

62 "Erreur d*E/S", "Protection d' \2l6criture 11 , 

63 "Unit\2l6 non en ligne", "Syntaxe incorrecte", 

64 "Table FCB pleine", "Nom introuvable" , 

65 "Volume introuvable", "Fichier introuvable 1 ' , 

66 "Norn en double" , "Volume plein", 

67 "Directory plein", "Erreur de version", 

68 "Type non support \21 6" , "Fin-de-f ichier rencontr\216e", 

69 "Fichier verrouill\2l6", "Fichier d\216j\2l0 ouvert", 

70 "Type non support \ 2 1 6" , "Plus de m\216moire", 

71 "Fichier en double" , "Ce n'est pas un disque", 

72 "N\2 41 de bloc trop grand", "Changement de nom ill\21 6gal" , 
73 

74 "M\216moire insuffisante !","ID non disponible !" } ; 
75 

76 static int ErrCodeU = { /* Liate des codes d'erreurs */ 

77 0x07, 0x10, 0x27, 0x2B, 0x2F, 0x40, 0x42, 0x44, 0x45, 0x46, 0x47, 

78 0x48, 0x49, 0x4A, 0x4B, 0x4C, 0x4B, 0x50, 0x52, 0x54, 0x57, 0x58, 

79 0x5A, 0x5B, 0x0201, 0x030B, 0x0000 J; 
80 

81 

82 pascal GrafPortPtr DAOpen ( ) /* Quvre la fenetre */ 

83 [ 

84 GrafPortPtr wind; 
8 5 Rect r; 

86 

87 asm{phb /* fixe correctement banc de donnees */ 

88 phk 

89 plb} 
90 

91 if (WindOpen) 

92 Selectwindow (WindPtr) ; /* Amene la fenetre au premier plan */ 

93 else 

94 { 

95 WindPtr = NewWindow UProdWind) ; /* Ouvre la nouvelle fenetre */ 

96 SetSyaWindow (WindPtr) ; /* Declare la fenetre comme appartenant 

97 au syst£me */ 
98 

99 /* Ouvre les 6 boutons*/ 

100 r.vl = 13; r.v2 - 28; r.hl = 10; r.h2 - 90; 

101 RenCtrl = NewControl {WindPtr, 6 r, "\ lORenommer" , , , , , Ol, 1L, 0L> ; 

102 r.hl - 100; r.h2 - 180; 

103 CopCtrl = NewControl (WindPtr, &r, "\6Copier" , , , , 0, 0L, 2L r 0L) ; 

104 r.hl = 190; r . h2 = 270; 

105 LocCtrl = NewControl (WindPtr, £r, "\4LocJt" ,0,0,0,0, 0L, 3L, 0L) ; 
10 6 r.vl = 30; r*v2 =- 45; 

107 UnlCt rl = NewControl (WindPtr, &r, " \6Unlock" , , , , , 0L, 4L, 0L) ; 

108 r.hl = 100; r . h2 = 180; 

109 PlaCtrl = NewControl (WindPtr, £ r , "\ 6Tailie" , 0, 0,0, 0, 0L, 5L, 0L) ; 

110 r.hl = 10; r.h2 = 90; 



/ PACESG / 
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111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
14 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 



DelCtrl - NewControl (WindPtr, &r, M \7Ef facer" , 0, , , , 0L, 6L, 0L) ; 

I 

WindOpen - true; 

wind - WindPtr; /* Copie le pointeur dans une variable LOCALE 

{sur la pile) */ 
asm! plb } /* Retablit le banc de donnees */ 

return wind; "/* On renvois la valeur par une variable LOCALE et 
non globale puisque le banc de donnees n'est plus valable */ 

*/ 



} /* DAOpen 

pascal void DACloseO 

( 

a am ( phb 

phk 

plb} 
if (WindOpen) 

CloseWindow (WindPtr) ; 
WindOpen ■ false; 
asm(plb) 
) /* DAClose 

void ErreurToolO 

I 

Graf PortPtr ErrDlog; 

int ToolErr, index; 

char *msg; 



/* Ferme la fen§tre 

/* fixe le banc de donnees 

/* Ferme la fen£tre 

/* Retablit le banc de donnees 

/* Traitement des erreurs 
/* Dialog d'alerte 



*/ 
*/ 

*/ 

»/ 
*/ 

*/ 



ToolErr = toolErr; /* Copie le code d" erreur qui ne */ 

if (ToolErr) { /* reste que jusqu'au prochain */ 

SysBeepO; /* appel d'outil */ 

Int 2Bex (ToolErr, &Error[l], 4); /* Convert it 1 'erreur en hexa */ 
msg = Error; 

for (index = 0; ErrCode [ index] != 0; ++index) 

/* Recupere le message d T erreur s'il existe */ 
if (ToolErr == ErrCode [ index] ) msg = ErrMsg [ index] ; 
ErrDlog - NewModalDialog {& rAlert , true, 0L} ; 

SetPort (ErrDlog) ; /* Ouvre le Dialog et le bouton */ 

NewDItem (ErrDlog, l,firoOK, 10, n \2QK n , 0, , 0L) ; 
MoveTo (30, 10) ; 

if (ToolErr < 0x100) DrawCSt ring { "Erreur ProDOS :"); 

else Dr a wCSt ring {"Erreur ; 

MoveTo (30,20) ; PrawCString Emsg) ; /* Affiche 1 'erreur 

ModaiDialog (0L) ; /* Attend le Click dans le bouton 

CloseDialog (ErrDlog) ; /* Ferme le Dialog 



*/ 



) 

J /* Erreur Tool 



void FileModif (k) 



int k ; 



char *chaine; 



/* Rename, Lock, Unlock fichier 



/* Choisit le message */ 

/ PAGES* / - 



166 if (k==3) chains « "\25Verrouiller fichier 

1€7 else if (k==4) chains = n \27D\2l6verrouiller fichier ; n ; 

168 else chaine = "\21Ef facer fichier ;"; 

169 SFGetFile{20, 80, chaine, 0L, 0L, SmyReply) ; /* Affiche le aelecteur */ 

170 if (myReply .good) { 

171 NdaDlog - Ne wModalDia log {G rDlog, true, OL) ; /* Ouvre le Dialog */ 

172 Set Port (NdaDlog) ; /* et les boutons */ 
17 3 NewD It em (NdaDlog, 1, fir Left , 10 , * \20K n , , , 0L> ; 

17 4 NewDItem {NdaDlog, 2, £rRight,10, n \7Annuler" , 0, 0, 0L) ; 

175 if (k™3) chaine = "verrouiller : 

176 else if (k==4) chaine = "d\216verrouiller :"; 

177 else chaine = "ef facer :"; 

178 MoveTo (10, 10) ; /* Affiche lea messages */ 

179 DrawCString ("Voulez-vou3 vraiment " ) ; 

180 DrawCString (chaine) ; 

181 MoveToUO, 20) ; 

182 DrawString (myReply. filename) ; 

183 DrawCString C" ?") ; 

184 itemHit = ModalDialog (0L) ; /* Attend un Click dans un bouton */ 

185 CloseDialog (NdaDlog) ; /* Ferme le Dialog */ 

186 if ( itemHit — 1) I /* si bout on - "OK" */ 

187 Pinfo .pathname = myReply . full name ; 

188 if (k==6) {DESTROY (SPinfo) ; ErreurTool ( ) ; } 

189 /* Efface le fichier */ 

190 else { GET_F ILE_INFO ( &P inf o ) ; 

191 if (_tOOlErr) goto fin; 

192 if Ck~3) P info . f Access = 1; /* Change le champ */ 

193 else Pinfo . f Access = 0xC3; /* access du fichier*/ 

194 SET_FILE_INFO UFinCo) ; 

195 fin: ErreurTool () ; J } ) 

196 } /"* FileModif */ 
197 

198 void Taille () /* Taille d'un fichier */ 

199 { /* Selecteur */ 

200 SFGetFile(20, 80, H \23Taille du fichier ; % 0L, QL, smyReply) ; 

201 if (myReply .good) { 

202 P Info .pathname = myReply ,f ullname; 

203 GET_FILE_INFO(£Pinfo) ; /* Lit la taille* */ 

204 if (toolErr) (ErreurTool { 5 ; goto fin;) 

205 NdaDlog = NewModalDialog ( frrDlog, true , 0L) ; /* Ouvre le Dialog */ 
2 06 Set Port (NdaDlog) ; 

207 NewDItem(NdaDlog,l,GrCentr, 10, "\20K", 0, 0, 0L) ; 

208 MoveTodO, 10) ; DrawCString ( "Taille de : ") ; 

209 DrawString {myReply . filename) ; /* Affiche les messages */ 

210 MoveTo (10,20) ; /* Convert it en decimal *J 

211 Long2Dec ( {Pinfo .blOCksUsed + 1) » 1, BlockNum, 5, 0); 

212 DrawCString (BloCkNum) ; 

213 itemHit = ModalDialog (0L) ; /* Attend le Click dans OK */ 

214 CloseDialog (NdaDlog) ; /* Ferme le Dialog V 

215 fin: ; J 

216 } /* Taille */ 
217 

218 

219 void Rename ( ) /* Renommer un fichier */ 

220 { 

» / PACE 58 / ^ ^ ^— ^— ^ — 
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221 


char 


newName[25]; /* Nouveau nom 


* / 

f 


222 


char 


changeName [25] ; 




223 


char 


* origname ; 




224 




/* Selecteur 


* / 


225 


SFGetFile(20, 80 f " \22Renommer fichier : n , 0L, GL, tmyReply) ; 




226 


origname ■ " 




227 


if 


(my Reply .good) origname ■ myReply * filename ; 




228 


NdaDlog - NewModalD ia log {& rDlog2 , true , Ol) ; /* Ouvre le Dialog 


*/ 


22 9 


SetPort (NdaDlog) ; 




230 


NewDItem (NdaDlog, 1, fir Left 2 , 10, "\20K", 0, r 0L) ; /* et lea boutons 


*/ 


231 


NewD Item (NdaDlog, 2,SrRight2, 10, 11 \7 Annuler" , , , 0L) ; 




232 


MoveTo (9, 15) ; DrawCString ( "Renoflntier * M ); 




233 


MoveTo{9,30) ; D rawest ring ("en ;») ; 




234 




/* ligne editable 


*/ 


235 


NewDItem( NdaDlog, 3, SrLine2, 17, origname, 24, 0, 0L) ; 




236 


NewDItem (NdaDlog, 4, ArLinel, 17, origname, 24,0, 0L) ; 




237 


do 


itemHit = ModalDialog < 0L) ; 




238 




while (itemHit > 2) ; /* Attend un Click dan3 un bout on 


*/ 


239 


Get I Text (NdaDlog, 4, changeName) ; /* Recupere le nom a changer 


*/ 


240 


GetlText (NdaDlog/ 3, newNameJ ; /* Recupere le nouveau nom 


*/ 


241 


CloaeDialog (NdaDlog) ; /* Ferme le Dialog 


* / 

i 


242 


if 


(itemHit — 1) [ /* Si OK 


*/ 


243 




P r en , pa t h n a me = c hange Name ; 




244 




Pren . newPathname = newName; 




245 




CHANGEPATH (&Pren) ; /* Change le nom 


*/ 


246 




ErreurTool <) ; J 




247 


) /* 


Rename 


*/ 


?48 








24 9 








250 


void Copier () /* Copier un fichier 


f 


251 


{ 






252 


Ftr 


MemAdr; /* Adresse du buffer 


* / 

f 


253 


long 


MemSize; /* Taille du buffer 


f 


254 


int 


Memory ID; / * ID de l'accessoire 


* y 


255 


Handle 


MemHndl; /* Handle du buffer 




256 




/* Selecteur 


* / 


257 


S FGe tF i le (20, SO, " \ 2 OCop ie r f ichier : M , 0L, 0L, fcmyReply) ; 




258 


if 


(myReply .good) { 




259 




Pread.dataBuf fer = myReply . fullname; /* open filename 


t 


260 




P read . request Count = 0L; /* i/o buffer 


*/ 


261 




OFENUPread) ; /* Ouvre le fichier 


*/ 


2 62 




if (toolErr) {ErreurTool () ; goto fin;) 




263 




GET_EOFUPread) ; /* Lit sa taille 


*/ 


264 




if {toolErr) goto finClose; 




265 




MemorylD = GetNewID ( 0x50 00 ) ; /* Demande un nouvel ID 


*/ 


266 




if (_toolErr) goto finClose; 




2 67 




MemSize = (long) Pread*dataBuf f er; /*Copie taille dang MemSize*/ 


268 




/* Ouvre le buffer 


*/ 


269 




MemHndl = NewHandle (MemSize, Memory ID, OxCOQO, OL) ; 




270 




if (toolErr) goto finID; 




271 




P read* request Count = MemSize; 




272 




MemAdr = *MemHndl; 




273 




Pread.dataBuf fer = MemAdr; 




274 




read UPread) ; /* Lit le fichier dans le buffer 


*/ 


275 




if (_toolErr) goto finClMem; 





/ PAGE 59 / 
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2 7 6 CLOSE (SPread) ; 

277 P info, pathname = myReply . f ullname; 

278 GET_FILE_INFO{&Pinfo) ; /* Lit lea attributs du fichier */ 

279 if (_tOOlErr) goto finMem; 

280 /* Selecteur de destination */ 
261 SFPutFile (20, 60, "\15Be5tinat ion myReply , filename , 15, ^myReply ) ; 

282 if (-myReply . good) goto finMem; /* Si 'Cancel' alors on sort */ 

283 Pren. pathname - myReply - f ullname ; 

284 DESTROY (iFren) ; /* Efface le fichier s 1 !! existe ti& ja */ 

285 if ((toolErr) (toolErr !- 0x46) ) goto finMem; 

28 6 Pcreate .pathname = myReply . f ullname; 

287 Pcreate .createDate - Pinf o . createDate ; 

288 Pcreate* createTime = Pinf o * createTime ; 

289 CREATE (fiFcreate* ; /* Cree le nouveau fichier */ 
2 90 if {toolErr) goto finMem; 

2 91 Pread.dat aBuf fer = myReply ♦ f ullname ; /* Open filename */ 

2 92 Pread. requeatCount = 0L; /* i/o buffer */ 

293 OPEN(£Pread> ; /* Ouvre le nouveau fichier */ 

294 if (toolErr) goto finMem; 
2 95 Pread.dat aBuf fer = MemAdr; 

2 96 Fread* request Count « MemSize; 

297 WRITE (&Fread) # /* Ecrit le contenu du buffer */ 

298 if (_toolErr) goto finClMem; 

29 9 CLOSE ( fiPread) ; 

30 if {_toolErr} goto finMem; 

301 Pinfo .pathname = myReply . f ullname; 

302 SETFILEINFO(SPinfo) ; /* Ecrit les attributs de 1' original */ 

303 goto finMem ; 

304 /* Traitement des erreurs */ 

305 finClMem: ErreurTool ( ) ; CLOSE (SPread) ; 

306 finMem : ErreurTool () ; 

307 DisposeHandletMemHndl) ; /* Libere le buffer */ 

308 Delete ID (Memory ID) ; /* Libere 1 1 ID */ 
30 9 goto fin; 

310 finID t ErreurTool () ; DeletelD (MemorylD) ; 

311 findose: ErreurTool () ; CLOSE (fiPread) ; 

312 fin ; ;} 

313 ) /* Copier */ 
314 

315 

316 void Bouton () /* Traitement du bouton de la souris */ 

317 { 

316 int h, i, j ; 

319 CtlRecHndl myControl; /* Bouton du Click souris */ 
320 

321 h = Pa ram-> where . h; /* Coordonnees du Click */ 

322 v = Par am-> where .v; 

323 i = FindControl (SmyControl, h, v, WindPtr) ; /* R£cupere bouton Click*/ 

324 if (i==2) { /* Si Click dans un bouton alors,. */ 

325 j = TrackControl(h f v, 0L, myControl) ; /* Gere le Click */ 

326 if (i==j) I /* Si Click confirme alors.. */ 

327 FlushEvents (-1, 0} ; /* Vide la chaine des evdnements */ 

328 j = GetCtlRefCon (myControl) ; /* Recupere numero du bouton*/ 

329 switch (j) ( /* Aiguille suivant le numero du bouton*/ 

330 case 1: Rename () ; break; 
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331 case 2: Copier ( ) ; break; 

332 case 3: 

333 case 4: 

334 case 6: FileModif ( j) ; break; 

335 case 5: TailleO; break; 

336 } J } 

337 J /* Bout on */ 
338 

339 

340 pascal void DAAction () /* Trait^ment des .6venements */ 

341 ( 

342 GrafPortPtr currPort; 

343 int what t modifiers; 
344 

345 if (Code — 1) /* Si Action - Event */ 

346 { 

347 currPort = GetPort () ; /* Sauve le port courant */ 

348 SetPort (WindPtr) ; /* Fixe celui de la fen€tre */ 

34 9 what = Param->what ; 

350 if (what — updateEvt) { /* Si evenetnent de miae A jour */ 

351 BeginUpdate (WindPtr) ; 

352 SetPoreColor (0> ; 
3 5 3 Set BackCo lo r (15); 

354 MoveTo(5,9); /* Affiche l'en-t£te */ 

355 Drawstring ("\50 (c) 1987 S, Hadinger £ Tremplin Micro . ") ; 

35 6 D rawControl s (WindPtr) ; /* Rede 3 sine les boutons */ 

357 EndUpdate (WindPtr) ; } 

358 else if {what == activateEvt) /* Si evenement d 1 activation */ 

359 DrawControls (WindPtr) ; /* Redessine les boutons */ 

360 else if (what == mouseDownEvt ) /*Si Click souris dans f en€tre */ 

361 BoutonO; /* Gere le Click */ 

362 SetPort {currPort) ; } /* Retablit le port original */ 

363 } 
364 
365 

366 pascal void DAInitO /'* Initialisation de I'accessoire */ 

367 ( 

368 if {(Code = 0) && (WindOpen) ) DACloseO; /* Si ShutDown */ 
3 69 WindOpen = false; 



37 \ 



Si vous desirez vous initier serieusement au GS Basic, offrez-vous 
I'excellent bouquin d'Emile Schwarz : 

"1 A LA DECOUVERTE F 
J DU GS Basic L 

Voir bulletin de commande page 64, 

I] est indispensable pour tirer le meilleur parti possible de la 
documentation americaine et du langage lui-meme. 

/ PACE 81 / 



/ PROGRAMME DEMANDS / 



NOMBRES 
PREMIERS 



ies nombres premiers 
passionnent Ies 
mathematiciens 
depuis leur decouverte, 
mais ifs ne laissent 
pas indifferenis 
ies amateurs de 
micro- inform atique . 
Vous Ies afficherez 
en utilisant une 
routine ressemblant 
a celle que je vous 
propose ci-contre, 
mais ne soyez pas 
trop presse si la 
quantite demandee 
est importante ! 
Plus if y en aura et 
plus noire programme 
se tramera ! Nestor 



CHR* (21)! HOME 



PREMIER s'il n 
on que lui-rneme 



10 TEXT : PRINT 
20 INVERSE 

30 T* = " NOMBRES PREMIERS " 
40 HTAB (41 - LEN (T*)) / 2: PRINT T* 
SO NORMAL ! PRINT 
60 PRINT " Un norobre est dit 
'aehiet pas d'autre divisi 

Ft 1. " 

EXEMPLES : 1,2, 3, 5, 7,11, 13. etc.' 
70 VTAB 21: HTAB 1 ! FOR I - 1 TO 40 : PRINT 
NEXT 

80 UTAB 22: INPUT " Comb i en en eherchons-nou 
s (2 et +) ? ";N$ 

90 NO = VAL <N$): IF NOT ND THEN 200 
100 IF ND < 2 THEN 80 
110 DIM NP<ND> 

120 NT = Is REM NT=Nombre de premiers trouv£ 
s 

130 NP<1) = 2:H = - 5; UTAB 8 
140 FOR I = 2 TO N:NPH) = 0: NEXT 
ISO N = 3: REM Depart 
160 UN = 1 : REM Vaut 1 ou 
170 PT = 1 : REM Poi nteur 

180 IF N / NPCPT) " INT (N / NP<PT>) THEN U 



190 
200 

210 
220 
230 
240 
2S0 
260 



UN = 1 
PT - 1 
IF N / 
N = 
PT = PT + 
IF NP<PT - 
THEN 180 
IF NOT UN 
NT = NT 
H = H + 
HTAB H: 
N - N + 
IF NT < 



1> < (N / NP(PT - 1)) AND UN 



THEN 250 
+ 1 :NP<NT> = N 
6: IF H > 34 THEN 
PRINT N; 
1 

ND THEN 160 



H = 1 : PRINT 



27E? 
3D9E 
5A69 
192A 
3E91 



F02A 
688C 

AEBA 

2l?F 
0P6E 
7107 

66A3 
7A86 
C009 
4151 
D6A4 
5BA5 

C160 
D411 

3CF 
DS71 
21 F6 
A2C4 
3B5B 
7F65 
9D0D 



* Si voire serie doit d4posser 78 il sera preferable de commencer par un HOME a la tigne 130. 



Indispensables pour gagner du temps sans passer par un compilateur 

LES RECUEILS 
DE ROUTINES LM 
DE TREMPLIN MICRO 

(voir bulletin de commande) 
— / PACE 02 / 



/ LESUVRES / 



Bien debuter 



Une serie d'ouvrages (/Initiation 
a recommander aux neophytes.., 



Ouond on n'o jamais Serif une ligne de Basic maitriser le QW/Bask s'y retrouver dans un fichiet 
Autoexec.bat. , ou slnitier au Turbo Pascal de Borland presenter) f ban nombre de difficulty Evidem 
ment routes les machines sent maintenant livrees avec une documentation convenable et generate 
ment traduite en frongais f mais it est rare qu'eiie reponde reeiiement d I'attente des neophytes, 

Cest ce qu^ont parfaitement compris les responsabies de cette sympathique collection. BIEN DEBUTER t 
tout un programme ! 

Le speciafiste — ou I'habitue — verra dans chacun de ces ouvroges de la serie un abc an peu trap sim- 
pHsie, mais il en ira autrement pour une personne ignorant tout de llnformatique. Ce qui parotf enfantin 
au premier est parfois difficile d cencevoir pour la seconder, d'ov I'utilite de cette collection. 



• BIEN DEBUTER GW/PC BASIC 

Le GW Bosk est le plus utilise des Basks sur PC Dons bien des cas r il represente 
la premiere approchede la programmafion sur un micro-ordinateur. En encadrant 
padaitement le neophyte dans ses premieres applications, BIEN DEBUTER GW/PC 
BASIC lui permettra dassimifer Jes mecanismes de la programmatic^ rant ou 
niveau de la structure et de la logique des programmes, que dans le rdle et la 
syntaxe des mots-cles, Parfaitement ecrit et appuye d une multitude d'exemples, 
i I of f re une introduction complete aux commandes et opporfe de nombreuses 
re>onses au* utilisateurs en les eel oi rant sur les possibility duplications a par- 
tir de ieur compatible PC (m pages -wfj 

• BIEN DEBUTER TURBO PASCAL 4.0 

Farce que la m ait rise dun Jangage evolu£ comme le Turbo Pascal n est pas une 
affaire de quelques heures, BIEN DEBUTER TURBO PASCAL se propose comme un 
guide souple et complet. bien adapre au niveau de connaissances des debutants 
en moiiere de langage informatique. BIEN DEBUTER TURBO PASCAL A.Q traite tous 
les aspects du log id el : installation, syntaxe et explication du vocabuloire. 
analyse et structure des programmes ,, Les instructions et fonctions sont presen- 
tees pas a pas et abandonment eclairees d'exempies signifkatifs [realisation de 
pefits utilitaires : ban que de donnees. formatage d'un disque,.,). Pouvant s'ufilt- 
ser comme manuel d'apprentissage ou guide pratique des fonctionnalites du 
Turbo Pascal, l ouvrage beneficie d'un style ogreable, propre aux quoJites peda- 
gogiques de son auteur. (240 pages -i29f) 

• BIEN DEBUTER MU IT! PLAN 

Utilise dans le monde par des rnifliers de personnes, Je tableur Multiplan ne 
demord pas de son succes. Micro Application propose un ouvrage de formation 
efficace permettant aux futurs utilisateurs daborder le plus (implement et le plus 
rapidement possible Ieur nouveau logkiet. ftedige dans un style accessible a tous, 
BiEN DEBUTER MULTIPLAN beneficie du cote pratique et fonctionnel deja mis en 
voieur dans les autres ouvrages de la gam me (style simple, guide des fonc 
tions Gr6ce a de nombre ux exemples choisis pour Ieur originalite, le lecteur 
pourra aborder de suite : la mise en marche du programme (installation, struc- 
ture, fonctionnalites) ; le travail sur une feu i lie de calcul (utilisation des formuJes, 
obtenfion des resultots...) ; la maltrise des fonctions mathematiques, statisti- 
ques, . . ; la programmation l aide des macro- commandes, etc- (250 pages — m F} 

Ouvrages *ktit4s par MICRO APPLICATION, 13 rue Saints Cecite, 75009 PARIS 



GW PC 
BASIC 



TURBO 
PASCAL 4.0 




/ PAGES J 



/ BULLETIN DE COMMANDS ETD'AB0NMEMEHT-H°21 / 

A r&tourner 6 ; TREMPLIN MICRO — S+nlltA — 86100 CM A TEL L ERA UL T 



Norn 

Adresse complete 
Code postal | L_ 



Prenom 



Ville 



LES QiSQUETTES FONCTIONNENT SOUS DOS ET PraBQS (A ttrtdif ton dm p**i4d+f unm v*n Jan Apple dm cm SYSTEME D EXftGfTA TlQfit} 





DESIGNATION 


0011 UNIT AIDE 






Abonnement 6 6 num^ros (un 

<£■ portlr du numdro E 




I,™ 






an) : FRANCE 


190 F 




Abonnement ii 6 disquettes (un on) : FRANCE 


600 F 


700 F 






Ml N 1 E _ 

LE BUREAU DE MINIE 

LES SOURCES DU BUREAU 


Logiciels 

de Claude AUBRY 


180 F 


200 F 




150 F 


170 F 




50 F 


70 F 






LIVRE : APPLE U PRODOS, GUIDE DU PROGRAMMED R APPLESOFT 


120 F 






ill/ be * i c *? P A C A p AC 


120 F 







LIVRE + DISQUETTE : CUNS D OEIL AU 6502 


160 F 


180 F 






LIVRE + OISQUETTE : ROUTINES LM POUR 65C02 ET 6502 


160 F 


180 F 






LIVRE 4- DISQUETTE : NOUVELLE5 ROUTINES POUR Lt 65CU2 


160 F 


180 F 






LIVRE + DISQUETTE : PROGRAMMES LM 65C02 £ 65C316 


160 F 


180 F 






LIVRE + DISQUETTE : A LA d£COUVERTE DU GS BASIC 




300 F 






DISQUETTE DE JEU WAR 


20 F 


40 F 






DISQUETTE DE JEU "Le Monde des 5ortl*r* M 


20 F 


40 F 






DISQUETTE INDEX (N°l * 12) 


iO F 


50 F 






DISQUETTE N D 21 MS-DOS 


50 r 


70 F 






SfGNATURE (CHECK-LIST) 


30 F 


50 F 






RELI URE-^CRIN 


40 F 






DISQUETTE DE TREMPLIN MICRO : * (ft*, Ik, GS) 

□ N°1 DN°4 □ N°7 □ N fl 10 N D 13 □ N°16 □ N°19 

□ N°2 nN°5 □ N°8 □ N°11 □ N°14 □ N a 17 □ N°20 

□ N°3 DN°6 □ N°9 nN°12 EJ N°15 □ N*18 n N°21 


105 F 


125 F 






DE TM. ;* □ N*l □ N°3 □ N°4 □ N°5 □ N°6 


30 F 






COLLECTION 86 d 88 : * 

□ N*7 □ N c 8 □ N c 9 H N B 10 □ N B I1 □ N>12 □ N fl t3 □ N B 14 

□ N*1S □ N»16 □ N°I7 □ N*l& □ N°19 □ N*20 □ M D 21 


33 F 





' Cxhmz la (au imt) cat* ft} dm> vafrv choix- 

Merci de libeller vofra reglsrnenf a I'ordr* 
d« TRfMPUN MICRO / Ultfoni JIBENA. 



Participation aux fraii d'envoi (groiuit pour Los a bonne)*) 
Envoi en paquot-poste recommends a portlr do 400 F 
Numero d'abonn* au do client \ Total a payer 



Mode d* roglemenl cholti : 

□ Cheque 

□ Mandat letlre 

□ Carte Bleue i compile? ci-ccmrt) 

— / PACES* / 



+ 10 F 




N e dm vofr* Con* Men* 

Dol* d 'expiration | L 

Mon1antbd*bH«r _ 



I I I 1 1 i I i 1 1 I 



Signature (ooligoiolre) 



/ BfBLIOTHEQUE INFORMA TiQUE / 



HYPERCARD 



inspire les auteurs 



Evenement mojeur pour les uns, revolution pour les 
autres f ^HyperCard prouve au monde de I'miormatique 
personnelle qu 'Apple n'o pas fini d'innoven.. et d'efon- 
ner. Si le Macintosh n'avoit certes pas besoin de cet 
extraordinaire fogtciel pour demon trer so superiority il 
est evident qu'il possede mointenanf, avec HyperCard et 
HyperTalk, son langage associe, une bonne avonce sur la 
grande famille de$ PC et compatibles* 
Gageons que le nouveau produit d'Apple continuera 
d'inspirer les auteurs et les edifeurs. Void deja deux 
exceltents manuels f bien rediges et tres complefs : 



HyperCard 



* HyperCard, HyperTalk, 

Guide d'utilisotion et de program motion 
par Danny GOODMAN 

Grace a so parfaite connaissance du log id el (au deve- 
loppement duquel il a IravaiJJe pendant un on et demc), 
Danny Goodman a pu rediger cet cm v rage remarquable, 
qui a eu un Ires grand sucees aux Etats-Unis. 
La traduction de ce best- seller, forte en £troite collabo- 
ration avec Apple pendant la mis© au point de la version 
franchise ^'HyperCard, doit etre b reference pour to us 
fes lecteurs francophones, cor il est tout 6 la fois : 

— un guide progressif et detail le d'utilisotion 
d 'HyperCard ; 

— une description complete de I'environnement auteur 
et des out i Is d'HyperCard ; 

— un rnanuel clair el pedagogique du langage de 
programme! ion HyperTalk ; 

— une source duplications developpees et expliquees 
qui mettront le lecteur sur la vote pour aeer ses 
prop res piles. 

Si x grantis axes dlnteret : 

* Utilizer HyperCard, 

* L environnement auteur, 

* L'environnement program mat ion. 

* Ut f I i ser HyperCard el Hy perTa I k * 

* Imporlation et exportation de donnees, 

* References. 

t 'tiUte ur : Depuis le debut des annees 70, Danny 
Goodman fait de la vulgarisation en 
matiere d utilfsatfon des micro- ordinoteurs. II collobore 
5 MacWorld et a PCWorld. II est auleur de nombreux 
ouvrages sur la rn ic ro- inform a ttque. L'un de ces livres, 
Going piaces with the New Appie //C fut un best-seller 
aux Etats-Unis, II a £t£ trad u it en francais, italren, 
allemand et hallandais. 

Dunod/So-Prt, }& X 2K 690 pages, broch4. 290 F. 

DUNOD, 17. rue R4myQumoncel BP- 50. 75661 PARIS CEDBX U 



• HyperCard : la programmotion 
en HyperTalk 
par Frederic RtNALDL 

Louvrage de Frederic Rinaldi complete parfaitement 
celui de Danny Goodman et ne fait ohsolument pas dou- 
ble emploi avec lui. On notera qu'il est preface par 
Jean- Lou 1 s Goss ee. . . u ne ban n e ref erenc e ! 

Frederic Rinaldi commence par une description detail lee 
des caracteristiques du langage et s'etend notamment 
sur la conception de lldee de langoge objets, 

Toutes ies common des r fond ions et proprietes sont pos* 
sees en revue, avec une multitude d'exemples. 

l aufeur passe ensuite aux Routines externes , Tune des 
parlies ma T tresses de son manuel, puis a ta Moftnse 
^HyperTalk, avec loutes les astuces et heel les con- 
nues, permettant de devenir expert en la matiere, 

Une bonne methode, De quoi vous occuper pendant de 
tongues soirees ! 



CedK Nathan, 
440 pages, 
broche, 

285 f nr. 
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HyperCard : 
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Chaque mois, 
le meilleur 
de la 

technique 
et de la *s 
pratique 
photo ! 




